This document is for internal Xerox use only. 


tfO Diagnostic User’s Guide 

by Mike Spaur 
April 10, 1980 
Revision 1.0 


This document describes the use of the DO diagnostic microcode developed by the 
Electronics Division to aid in the functional testing of the DO subsystem. 


[ISIS]<HDMOD>Re\-l>DiagGuide.dm 


XEROX 


REPROGRAPHIC TECHNOLOGY GROUP 
Electronics Division 

I .os .\nudes 


This document is for internal Xerox use only. 



DO Diagnostic User's Guide 


TABLE OF CONTENTS 

1.0 SCOPE 

2.0 .APPLICABLE DOCUMENTS 
3.0 TOE ENHANCED DIAGNOSTICS 

4.0 ORGANIZATION OF DOCUMENTS 

4.1 Run Files 

4.2 Documentation Files 

5.0 THE SCOURCE CODE 
6.0 FLOW CHART CONVENTIONS 
7.0 THE MACHINE LISTING 
8.0 USING THE MIDAS LOGGER 
9.0 THE NEW MIDAS DISPLAY 


APPENDIX 



DO Diagnostic User's Guide 


1.0 Scope 

This; guide is intended to show how to use the Diagnostics that were enhanced by the 
Electronics Division (ED) to test the TOR DO processor configuration. This 
document will cover the following areas: 

1. What the enhanced diagnostics are. 

2. Where they are and how to get them. 

3. How to read the related documentation. 

4. How to run the programs. 

5. How to use the Midas logger. 

6. How the new Midas display is organized. 

In order for this document to be useful, the user must have some experience with 
running microprograms under Midas control, but does not need to be able to write 
or understand microcode statements. The DO Hardware Mannual of May 16, 1979 is 
a required reference to this guide. 

I would like to extend my thanks to the ED diagnostics team for their help in 
preparing this document, in particular I would like to thank Ray Matsuda and 
Carter Tseng who have been especially helpful. Any questions or comments 
regarding this guide can be directed to: Mike Spaur, DPP/ED, El Segundo, 
extension 1507. 

2.0 Applicable Documents 

1. DO Hardware Manual 
RTG, May 16, 1979 

2. DO Micro Assembler Manual 

B. Rosen, December 30. 1977 

3. Micro: Machine Independent Micro Assembler 
E. Fiala et. al., August 29,1978 

4. MicroD Manual 

P. Deutsch. October 20. 1978 

5. DO Micro Programmer's Guide 

C. Hankins. August 22. 1978 

6. Midas Manual 

E. Fiala. December 29. 1977 

DO Midas Manual 

B. Rosen. December 30. 1977 

DO/TOR ESS Manufacturing Test Strategy 
H. Kakita. December 4. 1979 
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3.0 The Enhanced Diagnostics 

The ED microdiagnostics are enhanced versions of the functional microcode that 
have been standardized for the following purposes: 

1. To reduce familiarization time through better readability of the documentation. 

2. To install certain features that are common to the Midas display for all tests, 
thereby making them easier to use. 

3. To install looping capabilities to make the programs more effective for diagnosing 
hardware errors. 

4. To install a Midas logger to enable Midas to control the test and log the 
breakpoints that are encountered. 

Note that in most cases the coverage of these diagnostics have not been increased. 
Therefore, if the original functional microcode has left certain areas of the processor 
untested, the enhanced diagnostics also leave these same areas untested. 

The diagnostic programs are tests written in DO microcode to test various portions of 
the DO processor under Midas control. The tests are loaded into the DO instruction 
memory using Midas. Midas is a loader/debugger that runs on an Alto and controls 
the DO remotely. Some of the files required to support Midas are: 

Midas.run (the Midas run file) 

Midas.programs (contains the name of command files required by Midas) 
Midas.syms (a symbols file for Midas) 

Kernel.mb (microcode that runs in the DO and talks to Midas) 

Midas.midas (defines the initial screen) 

All of the files needed to support Midas (there are 10) can be retrieved by loading 
from the dump file [ISlS]<EDMOD>Rev-l>Midas.dm. Note that these files require 
that your disk executive be at Operating System 17. The following is a list of the 
diagnostics that have been revised, with an indication of the hardware it is intended 
to test. Note that the name of the revised diagnostics are the same as the original 
functional microcode except that the name is preceded by the letters ED. 

EDALU: This test exercises some basic functions of the ALU module, 

Configuration: The standard four CPU boards. 

EDBitBlt: This test exercises the Bitblt (bit boundary block transfer) 

hardware. It moves information from one region of main storage 
to another, and modifies the information at the destination. 
Configuration: The standard four CPU boards. 

FDBootDO: This is a BCPL program that runs in the Alto and loads the 

Kernel.mb file into the DO Control Store. Because this program 
is not written in DO microcode, it’s documentation is not the 
same as the other tests. 

Configuration: The standard four CPU boards. 
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EDCSEx: 

EDCyM: 

EDField: 

EDMemAbort: 

EDMemEx: 

EDProc: 

EDLProc: 

EDRDCD: 

EDRMEx: 


This test exercises the Control Store module as a 4K by 36 bit 
memory. Note that this test does not exercise the first 256 or the 
last 512 Control Store locations to protect the test program and 
the kernel. 

Configuration: The standard four CPU boards. 

This test exercises all functions of the Cycler/Masker except the 
FixVA functions which are tested by EDTNF. 

Configuration: The standard four CPU boards. 

This test simulates the RF, WFA and WFB field operations 
without using the cycler masker and then compares the results 
with the actual executions of the corresponding operations. 
Configuration: The standard four CPU boards. 

This diagnostic tests the memory reference abort conditions. 
Configuration: The standard four CPU boards and one 96K 
storage module. 

This program tests the memory mapping logic and 96K storage 
modules. 

Configuration: The Standard four CPU boards and the 96K 
modules to be tested (up to eight 96K boards may be tested). 

This is a midas command file that links all of the other EDXXX 
tests together and runs them one at a time, begining with CPU 
tests and progressing to the memory tests. Note that this 
program stops at the EDMemEx breakpoint "Found X 96K" 
where X is the number of 96K storage boards found by the 
EDMemEx program. The user should verify at this point that the 
number of boards found by the EDMemEx is correct and then 
bug continue. 

Configuration: The standard four CPU boards and at least one 
96K storage module. 

This test is the same as EDProc except that it has added looping 
capabilities for overnight testing. Thus it doesnot stop at any 
breakpoints. 

Configuration: The standard four CPU boards and at least one 
96 K storage module. 

This test exercises the SA4000 Rigid Disk Controller. 
Configuration: The standard four CPU boards, one 96K storage 
module, an RDC module and an SA4000 disk drive. 

This program exercises all of the R-registers except those used in 
this program or by the kernel. 

Configuration: The standard four CPU boards. 
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EDSmallMem: This test exhaustively exercises the control store as a 4K by 36 bit 

memory excluding the first 256 and the last 512 locations. Also, 
this tests exercises all of the T-registers except T[16] and T[17]. 
Configuration: The standard four CPU boards. 

EDTask: This program exercises the task switching hardware. 

Configuration: The standard four CPU boards. 


EDTimEx: This test exercises timers 0 to 15. It replaces the page 16 portion 

of the standard kemeL 
Configuration: The standard four CPU boards. 

EDTMP: This test exercises various features of the maintenance panel 

display. Note that this test involves interaction with the user. 
The user is required to observe that the proper numbers appear 
on the the maintenance panel display. For this reason no Midas 
logger was implemented for this program. 

Configuration: The standard four CPU boards and a four digit 
maintenance pannel (featuring the TMS1000 circuit). 


EDTNF: TNF stands for Test New Functions. This program tests the 

Newlnst feature, the Byte Code register and the new field 
descriptors. 

Configuration: The standard four CPU boards. 

EDUTVFC1: This diagnostic exercises the User Terminal Variable Format 

Controller. 

Configuration: The standard four CPU boards, one 96K storage 
module, a UTVFC module and the Large Format (LF) display, 
LF Keyboard and associated power supply/interface unit. 


As an overview, the following table gives a list of the DO modules and the diagnostics 
that deal with each one. Note that all of the diagnostics rely on the ALU, the 
Control Store, and the Miscellaneous Processor modules to be in working order, but 
the EDALU test, for example, is specifically designed to test certain features of the 
ALU module. 


Processor Hardware Diagnostics Invohed 


1. ALU EDALU 

EDBitBlt 

EDCyM 

EDField 

EDTNF 
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2. Control Store 

EDBootDO 

EDCSEx 

EDMemAbort 

EDRMEx 

EDSmallMem 

EDTask 

3. Ethernet Controller 

EDPackets 

4. Maintenance Panel 

EDTMP 

5. Memory Controller 

EDMemAbort 

EDMemEx 

6. Miscellaneous Processor Module 

EDBitBlt 

EDMemAbort 

EDTask 

7. Rigid Disk Controller (SA4000) 

EDRDCD 

8. User Terminal Full-page Controller 

EDUTVFC1 

9. 96K Storage Board 

EDMemEx 

EDMemAbort 


4.0 Organization of Documents 

All of the enhanced diagnostics are kept on [lSIS]<EDMOD>Rev-l>. The files on 
this account can be divided into two main categories; run files and documentation 
files. Strict naming conventions have been used in creating these files. All of the 
documentation for the EDXXX test for example, would be kept in files that begin 
with EDXXX and end with an extension that indicates what the contents of the file 
are. Sections 4.1 and 4.2 give a list of file extensions with an explanation of the 
corresponding contents. 


4.1 Run Files 

All of the files necessary to run the EDXXX test are obtained by loading from the 
ED XXX. dm test file on *[ISlS]<EDMOD>Rev-l>. This dump file contains all of the 
necessary files needed to run the EDXXX test assuming that you already have a 
Midas system on your disk. The following files are contained in EDXXX.dmtest. 
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EDXXX.mb This is a microbinary file which is loaded into the DO by Midas, 
and executed by the DO under Midas control. 

EDXXXunidas This file defines the Midas display for the EDXXX test 

EDXXXLog.midas This is a command file that allows Midas to run the EDXXX test 
and log the results in a bravo file called EDXXX.report. The 
EDXXXLog.midas file will be refered to in this guide as the 
Midas logger and it’s use is discussed in section 8.0. 


4.2 Documentation Files 


You can obtain a hard copy of the documentation files by loading from 
EDXXX.dmdoc at [ISIS]<EDMOD>Rev-l> assuming that you have Empress.run on 
your disk. This dump file contains all of the following documentation for the 
EDXXX test 


EDXXX.mc: This is the source code that was compiled to produce the 

EDXXX.mb file. The organization of the EDXXX.mc file is 
described in detail in section five. 


EDXXX.silpress: This is a set of flow charts that describe the workings of the 
EDXXX test. The symbols used in these charts are defined in 
section six. 

EDXXX.dls: This document is a list of all of the instructions that are loaded 

into the DO and their corresponding locations in the DO Control 
Store. How to read this file is discussed in section seven. 


5.0 The Scource Code 

The scource code for DO diagnostics is contained in a file that will be named 
EDXXX.mc. The ~.mc file contains the DO microcode statements that were 
compiled to produce the microbinary file that is loaded into the DO Control Store by 
Midas. The ~.mc file has some very useful information on the front pages. The 
organization of this information is described in this section. All of the descriptions in 
this section refer to pages Al to A7 of the appendix. These pages contain sections of 
the EDMemEx.mc file, and are listed for illustrative purposes only. 

The first pages of the ~.mc file are organized into blocks of information. At the top 
of the first page is the title block (see item 1 page Al). This block contains the name 
of the test, the purpose, the required hardware configuration, the author, and a 
histon of the modifications, along w ith name of the person who altered the test. 

Item 2 on page Al contains a list of the subtests in the EDMemEx test, w ith a short 
description of w hat each subtest does. 
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Item 3 on page A1 contains a list of breakpoints that may be encountered during the 
EDMemEx test, and explains the meaning of each one. 

Item 4 on page A2 contains a table of the breakpoints with a list of corresponding 
Control Store addresses. A logic analyzer can be synchronized to these addresses and 
events that occur near this location in the program can be observed, (see section 7.0 
for more details). 

Item 5 on page A2 contains the names of special user definable R-registers, with an 
explanation of the meaning of each one. These registers will be shown on the Midas 
display. They can be changed by the user and their value will have an effect on the 
parameters of the program as it runs in the DO. All ~.mc file numbers and all 
numbers displayed by Midas are in octal. 

Item 6 on page A3 contains a list of the subroutines used by the EDMemEx test, 
with a comment on what each one does. 


The actual source code begins on page A5. The initialization statements occur at the 
beginning of the source code (see item 7 page A5). After the initialization 
statements, the initial values of certain constants and R-registers are given (items 8 
and 9 on page A5). Here are some examples: 


SET|[Mumble,X]: This statement initializes a 16 bit constant named "Mumble" and 
sets it equal to the octal value of X. 

MC[Foo,Y]: This statement initializes an 8 bit constant named "Foo" and sets 

it equal to the octal value of Y. Either the least significant or 
most significant half of Foo may be specified by the octal value 
of Y. The other 8 bits must be zero. 


RV[Rexample,A,B]: This statement gives the Ath R-register the name "Rexample”, 
and sets it equal to B, where A and B are octal numbers. The 
statement of A is optional. 


Along side of these initialization statements may be some comments that are 
preceded by an asterisk (*). These comments will explain how the constant or 
register is used in the program. 


After the initialization statements are made, the main routine is listed (see item 10 
on page A7). each line of this main routine equates to an actual instruction in the DO 
Control Store. Each of the microcode statements ends with a colon (;). These 
statements may be followed by a comment which will be preceded by an asterisk (*). 
These comments will make some statement about what the program is doing. 
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After the main routine, the source code for the subroutines is listed. It is not 
necessary that you be able to understand all of these microcode statements to be able 
to use the test, but certainly it could be of assistance to you. See reference numbers 
2 through 5 in section 2.0 for further information regarding DO microcode. 


6.0 Flow Chart Conventions 

This section gives a description of the conventions used in flow charting the new 
diagnostics. The basic symbols used are shown on page A8 of the appendix. All of 
the comments in this section refer to that page. 

Figure 1 on page A8 is the symbol used to indicate the beginning of execution of the 
program. 

Figure 2 is a statement box. The program executes these boxes in sequential order. 
All statements in any box will be executed before the program moves on to the next 
item. 

Figure 3 shows an instruction box. This box symbolizes a special instruction that has 
been implemented to avoid repetitious subroutines. Figures 7, 8, 10, 11 and 12 are 
examples of these instructions, and will be discussed in more detail below. 

Figure 4 is a decision box. The statement it contains will be mathematical or logical 
in nature. If the statement contained in the box is true then the program will 
proceed to the next item that occurs in the "yes" branch, otherwise program flow 
will follow the "no" branch. 

Figure 5 illustrates a label. All of the names on the flow chart that appear in bold 
letters in front of the boxes and are followed by a colon are labels. These labels can 
be found in the source code file (~.mc) and are associated with actual locations in 
the Control Store. The EDXXX.dls file will be referenced to these labels, and Midas 
is aware of them. It is possible to begin executing or stop executing the program at 
any location using Midas and referencing these labels. 

Figure 6 is a jump box. Following this item, execution will begin at label "mumble" 
which appears on page X of i he flow chans. 

Figure 7 is a symbol that represents a special function internal to the processor which 
clears the maintenance panel. If execution of the program halts immediate!}, after 
this instruction then the display should read 0000. 


Figure 8 is a symbol that represents another internal function which increments the 
maintenance panel by one. These maintenance panel functions are used in the 
diagnostics to display where execution is occurring in the program. 
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Figure 9 is an example of a call statement. If this symbol occurs to the right side or 
underneath a statement or decision box, then after the program is done with that box 
it will begin execution of the items that follow the label "Foo" on page y. The 
program will continue to execute the statements that follow the "Foo" label in a 
normal way until it encounters a return statement 


Figure 10 is the symbol that represents the return statement When it is 
encountered, the program will jump back to the previous call statement and start 
execution of the items directly beneath that call. However, this may not happen 
immediately. If there is a higher priority task requesting service (such as memory 
refresh), then that task may get control of the processor after the return statement is 
encountered. If this happens, then control of the processor will be returned to the 
program when the higher priority tasks have finished. The program will then begin 
execution of the items that follow the previous call. 


Figure 11 is the task symbol. This symbol represents a special microcode statement 
that allows another higher priority task to have control of the processor. It is 
equivalent to a call followed by a return statement When the higher priority tasks 
are finished, execution will begin at the item which is directly beneath the task 
statement. Branches may be connected to the path underneath a task symbol, 
especially if the diagnostic is designed for input output hardware. This is to let you 
know that other tasks will possibly get control of the processor if certain conditions 
occur. A note should appear by each of these branches to let you know what these 
conditions are. For instance a note may appear by one of the branches that reads: 
’’Task 2 if wakeup occurs ”. 


Figure 12 is the notify symbol. This statement causes task switching like the task 
statement. But it also forces the processor to return to a specific task and location. 
This task and location is specified by the contents of the APC and APCTask 
registers. For a more detailed description of the notify statement, see page 54 of 
reference 5 (section 2.0). Again branches may appear under the notify symbol to 
indicate the various tasks that may run next. 


Figure 13 is an illustration of the loop path symbol. When the decision box is 
reached, the processor looks at the register "ShortLoop" and sees if it is equal to one. 
If it is, the program execution follows the heavy black line, and will continue to do so 
until ShoitLoop is no longer equal to one. or until Midas encounters a breakpoint or 
a mouse halt. Whenever you see heavy black lines on the flow chart it means that 
this is a path that can be looped on. Loop paths have been installed so that some 
special part of the program can be looped on for trouble shooting purposes. 


Figure 14 is the breakpoint symbol. When the program encounters this item, 
execution will halt and control will be given to user via Midas. If the "continue” 
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item on the Midas menu is bugged, the program will resume execution with the 
item that is directly beneath this breakpoint Breakpoints are usually inserted in a 
program to halt execution when the hardware being tested has failed to pass some 
subtest of the program. 


Figure 15 is the dispatch symbol. A dispatch is a multiple branch to up to sixteen 
different locations. First a variable (X in this example) is set up. The branch takes 
place based on the value of this variable. The numbers on the legs of the brances 
represent the possible values that X can assume. If all of the possible values are not 
indicated, some default condition should be stated. 


Figure 16 is the end symbol. It means that if the program encounters the breakpoint 
preceding this symbol, then it has finished one complete iteration of the EDXXX 
test Usually the program will start again from the beginning for another iteration if 
the continue item is bugged from this breakpoint 


7.0 The Machine Listing 

The machine listing file is produced by a compiler from the scource file. The 
machine listing file will be named EDXXX.dls. The letters dls stand for D-machine 
listing. An example of the ~.dls file for the EDCyM program is given on page A9 of 
the appendix. The following is a list of the information given in coulmn form in the 
EDXXX.dls file. 

Imag (The Control Store Address in imaginary format) 

Real (The Control Store Address as in appears on the CIA lines) 

WO (The least significant 15 bits of the micro instruction) 

W1 (The next significant 16 bits of the micro instruction) 

W2 (The most significant 4 bits of the micro instruction) 

Symbol (A reference to the closest preceding label) 

Note that next to imaginary address 26 in the EDCyM.dls file the is a "b" between 
the Imag and Real columns. This is to let you know that there is breakpoint inserted 
in this location. You may see an sign between the Imag and Real coulmns. 
This is to let you know that the instruction is appears next to has a fix location which 
is specified in the ~.mc file by the At[N] instruction. 

This information is given for every instruction in the EDXXX.mc file. The most 
interesting information for the purpose of debugging is the real address column. The 
real address column lists the actual address that will appear on the 12 bit Control 
Store address lines ClA[00:11] during that instructions cycle. 

In the real address column you may see some number such as 1463 for a real 
address. The numbers that appear in the ~.dls file are all in octal. The binary 
equivalent 1463 octal is 001 100 110 011. In this case, the least significant bit 
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(CIA. 11) would be a one, and the most significant bit (CIA.00) would be a zero. 

Using the appropriate sil drawings for a particular revision of the Control Store 
module, a good place to connect test probes can be found. Then a logic analyzer can 
be triggered on the Control Store address lines. Any event in the processor can be 
observed by synchronizing on the address of an instruction which occurs just before 
the event Be careful the CIA bus exists in complemented form in several places on 
the Control Store module. 

The; real Control Store addresses of each breakpoint in the program have been put 
into table form and listed at the beginning of the ~.mc file (see page A2 item 4). 
These are the Real addresses to which the program will proceed from the given 
breakpoint 


8.0 Using The Midas Logger 

A Midas logger has been created for each microdiagnostic. The logger command file 
for the EDXXX test will be named "EDXXXLog.midas". This logger is a Midas 
command file that runs Midas and logs certain information in a file called 
EDXXX.report An example of the print out for the EDCyM program is given on 
page A10 of the appendix. 

If the hardware should fail the test at some given breakpoint in the program, the 
logger will print pertinent information regarding that breakpoint. In the EDCyM 
program for instance, if the logger encounters the breakpoint "ResultBad", it enters 
the text "Result does not equal myResult.". It then logs the value of the following 
registers: (see page A10) 

Result 

myResult 

SubTest 

PassCount 

If the processor should fail to run the program properly and fail at some location 
other then a program breakpoint, then the logger will record the state of the 
following column A registers: 


Paritv 

CIA 

CTask 

APCTask 

APC 

TPC 


Once the Midas system is started, the logger can be activated by typing 
"EDXXXLOG" on the Midas input text line and then bugging "Read-Cmds". The 
logger command file will then restart the EDXXX test and begin logging the results. 
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To stop the Midas logger, bug the "Abort" item while the logger is running the test. 
Control will then return to the Alto executive and a hard copy of EDXXX.report 
can be obtained using empress. 


Note that when the test fails not at a standard breakpoint, the logger records the 
status in EDXXX.report and then attempts to restart the EDXXX test In this 
instance the logger cannot loop on the failure. If ShortLoop is set equal to one when 
the logger encounters this failure, it will log the results and restart the test, which will 
reinitialize the ShortLoop register to zero. The logger should be helpful though for 
determining reliability and for long term exercising. 


9.0 The New Midas Display 


Page All of the appendix shows an example of the standardized Midas display (this 
one is for the EDCyM program). Column A has the same processor registers that 
are displayed for all tests as defined by the Midas.midas file. 

Note that some of the registers shown on the display on page All have an asterisk 
(*) next to their name. Any register on the midas display whose value has changed 
since the last time displayed (since the last breakpoint) will have an asterisk next to 
its name. 

Locations BO to B4 have been standardized, and are now the same for all EDXXX 
tests. Here is what they contain: 


Location 

Register Name 

Meaning 

BO 

Revision 

The revision level of this version of the EDXXX test 

B1 

Run-Time 

The octal number of seconds it takes to run the 
EDXXX test once. 

B2 

Passcount 

The number of passes of the entire EDXXX test that 
have been completed. 

B3 

Max Pass 

The number of passes of the entire EDXXX test after 
which the program will breakpoint at "Passed-EDXXX- 
Test". Feel free to change this number by using Midas. 

B4 

SubTest 

The current subtest of the EDXXX program that you 


are in. 



DO Diagnostic User's Guide 


14 


Locations CO to C3 are the communications registers Comm-ErrO, Comm-Err 1, 
Comm-Err2, and Boot-Err. These registers are counters that keep track of how many 
times certain boot and communications events occurred with errors. They should 
always contain zero values. 


Location C4 is the Boot Reason register. This is a 6 bit register that indicates the 
cause of the last processor boot. Only one bit should be set in this register. The bits 
have the following meaning: 


BootReason Displayed 

Corresponding bit 

Reason for boot 

40C 

Bit 10 =1 

Tester boot 

20C 

Bit 11 =1 

Maintenance panel boot 

10C 

Bit 12 =1 

Watchdog timer boot 

4C 

Bit 13 =1 

Group B function boot 

2C 

Bit 14 =1 

Power boot 

1C 

Bit 15 =1 

Parity error during task ' 


While running Midas, the BootReason register will normally contain a 40 to indicate 
that the processor was boot strapped by tester hardware. 

Location C5 contains the MemSyndrome register. The contents of this register is a 
memory syndrome that is used to correct single errors and detect double errors in 
memory data. This register will probably never be of use to you, but donot be 
alarmed by a non-zero value here. 

In the lower right hand corner of the register fields are the user definable registers. 
There may be several registers in this field but there will always be one register called 
ShortLoop or LoopOn there. The ShortLoop or LoopOn register is set equal to one 
by the user if he wishes to loop on the current subtest. Always check the flow charts 
to see how this register is used in the test. Not all subtests in every program have 
this capability. 

If there are any other registers in this user definable area, then their meaning and 
how to use them will be discussed in the special register section of the ~.mc file (see 
page A2 item 5). All of the user definable registers will always be the bottom group 
of registers in the C column. 

The rest of the area on the Midas display is devoted to registers that are peculiar to 
the EDXXX program. The purpose of these registers will be explained in the flow 
charts and in the front pages of the ~.mc file. These registers can be altered by the 
user, but for the results to be meaningful you must have a clear idea how the register 
is being used in the program. In this area, knowledge of microcoding is necessary. 
However, the diagnostics should be fairly thorough as written, and you should not 
need to alter these special registers to test the hardware extensively. These registers 
were placed on the display to show you w'hat state the program is in. 



DO Diagnostic User's Guide 


Appendix 




figure 6 


figure 1 2 


figure 16 


Standard Flow Chart Symbols 


■ A8 ■ 











a9 .me 


28-Feb-80 12:49:36 


MicroD 8.6 (OS 16) of April 27 % 1979 
at 20-Feb-80 8:22:11 

microd.run EDCym 


EDCym.DIB 561b instructions written 20-Feb-80 8:21:02 

Total of 561b instructions 

Checking for errors... 

Linking... 

Building allocation lists... 

Assigning 1ocat ions... 

561b instructions in rings involving ONPAGE or AT 
Reloading binaries... 

Checking assignment... 

Writing .MB fils... 

Writing 1isting. . . 

IM: 


Imag 

Real 

WO 

W1 

W2 

Symbol 

EDCym. 

DIB; 





0 

1404 

22005 

107060 

15 

GO START 

1 

1530 

22320 

101057 

15 

( + 1) 

2 

1527 

22001 

123055 

11 

( + 2) 

3 

1526 

22323 

115053 

11 

(+3) 

4 

1525 

47 

705 1 

1 

(+4) 

5 

1524 

20020 

101046 

11 

(+5) 

6 

1523 

20020 

101044 

1 

(+6) 

7 

1522 

10020 

101043 

11 

(+7) 

10 

1521 

10020 

101041 

15 

(+10) 

11 

1520 

12020 

101037 

1 

( + 11) 

12 

1517 

12020 

101035 

5 

( + 12) 

13 

1516 

12020 

101033 

11 

( + 13) 

14 

1515 

12020 

101031 

15 

( + 14) 

15 

1514 

10004 

101026 

5 

( + 15) 

16 

1513 

10320 

105024 

5 

( + 16) 

17 

1512 

50 

25023 

1 

( + 17) 

20 

1401 

47 

5023 

0 

BIGLOOP 

21 

1411 

21050 

125020 

0 

( + D 

22 

1410 

20150 

65017 

4 

(+2) 

23 

1407 

21450 

25015 

0 

(+3) 

24 

1406 

50 

24205 

0 

(+4) 

25 

1403 

50 

25023 

1 

(-5) 

26 

b 1402 

50 

25012 

0 

PASSED-EDCYM-TEST 

27 

1405 

20020 

101022 

1 

(-1) 

30 

1511 

22020 

101020 

1 

MAINLOOP 

31 

1510 

22020 

101017 

5 

( + 1) 

32 

1507 

21050 

125015 

11 

(+2) 

33 

1506 

50 

24002 

0 

(+3) 

34 

1400 

22150 

65013 

15 

(+4) 

35 

1505 

23174 

45010 

15 

(+5) 

36 

1504 

23174 

67007 

15 

(+6) 

37 

1503 

23150 

65004 

11 

(+7) 

40 

1502 

22050 

125003 

15 

(+10) 

41 

1501 

22000 

103001 

1 

SETVARS 

42 

1500 

22165 

67177 

14 

( + D 

43 

1477 

24050 

125174 

C 

(+2) 

44 

1476 

20150 

65172 

0 

(+3) 

45 

1475 

23150 

65171 

14 

(+4) 

46 

1474 

24050 

125167 

4 

(+5) 

47 

1473 

10150 

65164 

4 

(+6) 

50 

1472 

26050 

125162 

14 

( + 7) 


A 
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********** START EDCym Test :31-Dec-00 16:59:18 PST*************** 


Passed EDCym Test :31-Dec-00 16:59:32 PST 


Passed EDCym Test :31-Dec-00 16:59:38 PST 


Passed EDCym Test :31-Dec-00 16:59:45 PST 


*** FAILed: at my Breakpoint 
* Result does not equal to myResult 

' Result =1037 
’ myResult =0 
’ SUBTEST =4 
' PASSCOUNT =0 


*** FAILed: Not at my breakpoint 
' Parity =0 
' CIA =7777 
' CTASK =16 
' APCTASK *0 
' APC =1037 
• TPC =7777 


Passed EDCym Test :31-Dec-Q0 17:00:04 PST 


A10 












Standard A Column 



Standard ED Midas Registers 



Communications Registers 

C 


0 

PARITY 

0 

REVISION 

1 

COMM-ER0 

0 


CYCLECONTROL 

43 

RUN-TIME 


C0MM-ER1 

0 

2 

PCX'REG 

0 

♦PA88COUNT 


C0MM-ER2 

0 


POPREG 

0 

MAXPASS 


BOCT-ERF: 

0 

4 

OBREG 

17 

SUBTEST • 

0 

BOOTREASON 

40 


8BREG 

17 



MEMSYNDROME 

177757 

6 

MNBR 

1037 






SSTKP 

377 

♦XA 

162505 

♦MYRESULT 

16 

8 

STKP 

0 

♦FNUM 

345 ♦RESULT 

16 


ALURE3ULT 

6 

♦OPERAND 

162506 

♦APGRESULT 

1037 

10 

SALUF 

0 






f: T 20 

o 

L. 

INNERLOCPCOUN 0 

+ CS0 

14176 

12 

A A T 0 V A 

0 


♦CS1 

113002 


TPC 20 

7777 



♦CSS 

5 

14 

CALLER ILC0+ 

7217 

♦LDFTEST 

6777 *CSP 

70405 


PAGE 

3 

f Li I P A T u H T E c 

T 7 2 U U U 



16 

A PC 

7011 

♦LSHTEST 

17000 

SHORTLOOP 

0 


A PC TASK 

16 

♦LCYTEST 

16777 



18 

*GASSED-EDCYM- 

TEST 

♦LHMA8KTEST 

1000 

User Definable Registers 



CTASK 

0 

♦ZEROTEST 

1000 




Loaded: E0CVM 
R e s u rn e 0:90 + 1, B P a t Q : P A 8 8 E D - E D C V M - T E 8 T 


Time: 05,89 

EDCyM Program Registers 


Ex t t Boot Run-Prooi Read-Crnds Break UnBreak C1 rAddedBPs C1 rA1 IBPs 8howBPs Go 

0:8 C o n 11 n u e L o a d L d 8 y rn $ C o rn pare Test-All T e s t D u rn p 8 h o w - C rn d s W r i t e- 0 rn d s 
Virtual 


All - 
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<D0D1ag>Edalu.mc Rev 1 1/8/80 


EDALU.mc : Central-data-paths-exerciser microcode 

Purpose : This test exercises some basic functions of the ALU module. 
Hardware Configuration : Standard 4 CPU boards. 

Written by : (unknown) 

Modified by : C. Thacker, June 16, 1979 
Modified by : M. Thomson & J. Kellman, Jan. 8, 1979 
Standardize title page and code format. 


* SubTest Description: 

* Subtests are indicated in the flow charts and .me file by: 

* 1) Mcount (in octal) 

* 2) Mpanel (in decimal) 


* Subroutine Description: 

* compareO: Compares contents of sO (R file) with T 

* poptst: Checks the contents of the stack after It has been loaded by push operations 

* TchkR: Takes pattern in T, break points if discrepancy is found 

* TfillR: Write pattern in T from Rmax through Rmin in R file 


* Breakpoints: 

* AchkRer: Value In R did not match R address. 

* badnotify: Task failed to switch. 


fall: 

TchkRerO 
TchkRerl 
TchkRer2 
TfillRer 
Passed-EDALU-Test: 


Value in sO (R file) did not match value in T. 

Value in si (R file) did not match value In T. 

Value in sO (R file) did not match value in T. 

Value in stack did not match stack address. 

Value in si (R file) did not match value in T. 

the system passed thru all the passes of EDALU. 


**************************************************************************************** 


* Breakpoint Logic Analyzer Sync Points: 


* 

AchkRer: 

Control 

Store 

address 

415 

* 

badnotify: 

Control 

Store 

address 

2555 

* 

fail : 

Control 

Store 

address 

3 

* 

TchkRerO: 

Control 

Store 

address 

407 

* 

TchkRerl: 

Control 

Store 

address 

405 

* 

TchkRer2: 

Control 

Store 

address 

403 

* 

Tf IllRer: 

Control 

Store 

address 

525 

* 

Passed-EDALU-Test: 

Control Store 

addr< 


1000 
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* INITIALIZATION: 

BUILTIN[INSERT,24]; 

INSERT[d01ang]; 

TITLE[Central-data-paths-exerc1ser]; 

********** Set constants: *******•••• 

*** Code to page allocation: *•* 

*** Pag© *** *** principal entry points *•* 

SET[Rpage, 1]; * stktst. flone, flzero, TfillR, TchkR, AflllR, AchkR 

SET[pushpage, 2]; * pushl, pushml. push2, pushm2, push3, pushm3 

SET[popxpage. 3]; * poptst extension: pop3, popm3 

SET[poppage, 4]; * poptst: popl, popml, pop2e, pop2o, popm2e, popm2o 

SET[alupage, 5]; * go, contst, acontst, alutst 

********** Macro definitions: ****••• 

M@[ones, (ZERO)-l]; 

* compares sO with T, break point results If the two are not equal 
M@[compare, 

IFG@[ 10,FVAL0[PGE0], 

SELECT9[FVAL0[PGE0]. cal 1[compareO], call[comparel], call[compare2], 
call[compare3], cal 1[compare4], call[compare5], call[compared], 
cal 1[compare7]], 

SELECT@[SUB[FVAL0[PGE0], 10], cal 1[comparelO], cal 1[comparell], 

cal 1 [compared], call[comparel3], cal 1 [comparel4], call[comparel5], 
cal 1 [compared], call[comparel7]]]]; 

********** Macro constants: *****•••* . 

MC[Rmin, 20]; * First R location tested 

MC[Rmax, 317]; * Last R location tested 

MC[faultTrapLoc, 0]; * special control store locations used by hardware 

MC[bootTrapLoc, 1]; 

********** R-registers: *•******••*•• 

RV[s0, 0]; 

RV[s1, 1]; 

RV[rt. 2]; 

RV[oldapc, 3]; 

RV[rev1sion,4,1]; 

RV[Mcount,5]; 

RV[Run-time,6,11]; 

RV[PassCount,7,0]; 

RV[MaxPass,10,1000]; 


*** PRELIMINARY routine: 

SET[sTestBase,1shift[alupage,10]]; 

MC[sTestTask,add[sTestBase,150000]]; 

MC[sTes tBC,sTestBase]; 

ON PAGE[alupage]; 

start: 

go: clearMpanel; Mcount *■ ZERO; * initialize Mpanel to 0000, Mcount to 0000 

sO «• sTestBC; 

APCtasWAPC <- sO; 

return; * generate task switch 

badnotify: breakpoint, goto[go]; * should never reach here 

* set tasks 1-15 to breakpoint if awakened 


* R store temporaries 

* stack test iterations count 

* holds return address during poptst 

* revision number is 1 for this program 

* octal equivalent of maintenance panel display 

* run time for this test is 9 seconds 

* pass count for this program 

* maximum number of passes for this run 


TO: 


sO sTestTask, at[sTestBC! ]; 
sO «- (sO) or (20C); 


* task 15 
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bwnotify: apc&apctask «■ sO; 
return; 

sO <- (sO) - (10000C), at[add[sTestBase,31]]; *notify returns to here 
LU «* 1 df [sO ,0,4]; 
clblgoto[bwnotify ,TtoR,a1u#0]; 

bwnot: si «• sTestBC,call[xret], at[add[sTestBase,20]]; 
badwake: usectask; 

T «■ apc&apctask; 
breakpoint, goto[go]; 
return; 

xret: si*- (si) or (31C); 

apc&apctask «■ si; 
return; 

* guaranteed to be in task 0 now 


*** MAIN routine: 

* try the T pass around path 

TtoR: iincMpanel, Mcount «* (Mcount) + 1; * increment Mpanel to 0001, Mcount to 0001 

sO ♦* T «• OC; 

T <- 377C; 

SO «• T; 
compare; 

* try the R pass around path 

RtoT: iincMpanel, Mcount (Mcount) + 1; * increment Mpanel to 0002, Mcount to 0002 

$0 «• T «■ 0C; 

SO «• 377C; 

T ♦- sO; 
compare; 

* test constants from micro instruction 

contst: iincMpanel, Mcount ♦* (Mcount) + 1; * increment Mpanel to 0003, Mcount to 0003 


sO 

♦- 

(ZERO) 


T 

4- 

OC; 

compare; 

sO 


(ZERO) 

+ 1 

T 

4- 

1C; 

compare; 

sO 

«- 

(SO) 

+ 

(T) 

T 

4- 

2C; 

compare; 

sO 

4- 

(SO) 

+ 

(T) 

T 

4- 

4C; 

compare; 

SO 

4- 

(SO) 

+ 

(T) 

T 

4- 

IOC; 

compare; 

SO 

4- 

(SO) 

+ 

(T) 

T 

4- 

20C; 

compare; 

sO 


(SO) 

+ 

(T) 

T 

4- 

40C; 

compare; 

SO 

4“ 

(SO) 

+ 

(T) 

T 

4- 

100C; 

compare; 

sO 

4- 

(SO) 

+ 

(T) 

T 

4- 

200C; 

compare; 

SO 

4- 

(SO) 

+ 

(T) 

T 

4- 

400C; 

compare; 

SO 

4- 

(SO) 

+ 

(T) 

T 

4- 

1000C; 

compare; 

SO 

4- 

(SO) 

+ 

(T) 

T 

4- 

2000C; 

compare; 

SO 

4- 

(SO) 

+ 

(T) 

T 

4- 

4000C; 

compare; 

SO 

4- 

(SO) 

+ 

(T) 

T 

4- 

10000C; 

compare; 

sO 

4- 

(sO) 

+ 

(T) 

T 

4- 

20000C; 

compare;. 

sO 

4- 

(sO) 

+ 

(T) 

T 

4- 

40000C; 

compare; 

SO 

4" 

(sO) 

+ 

(T) 

T 

4- 

100000C;' 

compare; 


* test the basic ALU operations 


alutst: incMpanel, Mcount ♦- (Mcount) + 1; * increment Mpanel to 0004, Mcount to 0004 

sO «- ZERO; * test cycler/masker function ZERO 

I «• 0C; >. 

compare; 

sO «- 0C; * test (ZERO) - 1 

si «- T *• ones; * set si to all ones for subsequent tests 

T <- (ZERO) + (T) + 1; 
compare; 

aluO: incMpanel, Mcount (Mcount) + 1; * increment Mpanel to 0005, Mcount to 0005 
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T ones; * 1 from T 

sO <- T; 

compare; 

T «- OC; * 0 from T 

sO «* T; 

compare; 

alul: incMpanel, Mcount «- (Hcount) + 1; * increment Mpanel to 0006, Mcount to 0006 

sO «- 0C; 

T «* sO; * 0 from R 

compare; 

sO ones; * 1 from R 

T v sO; 

compare; 

alu2: incMpanel, Mcount «- (.Mcount) + 1; * increment Mpanel to 0007, Mcount to 0007 

T «- 0C; T *• (ZERO) and (T); * 0 and 0 

sO «■ 0C; compare; 

T ones: T «• (ZERO) and (T); • 0 and 1 

sO <- OC; compare; 

T OC; T «- (si) and (T); * 1 and 0 

sO OC; compare; 

T «- ones; T (si) and (T); * 1 and 1 

sO <- ones; compare; 

alu3 .incMpanel, Mcount «• (Mcount) + 1; * increment Mpanel to 0008, Mcount to 0010 

T «- OC; T 4 - (ZERO) or (T); * 0 or 0 

sO «■ OC; compare; 

T 4 * ones; T *- (ZERO) or (T); * 0 or 1 

sO 4 - ones; compare; 

T ♦- OC; T 4 . (si) or (T); * 1 or 0 

sO 4 - ones; compare; 

T ♦- ones; T «- (si) or (T); * 1 or 1 

sO 4 - ones; compare; 

alu4: incMpanel, Mcount ♦- (Mcount) + 1; * increment Mpanel to 0009, Mcount to 0011 


T 4 . 

OC; 

T ♦- (ZERO) 

xor 

(T); 

* 

0 

xor 

0 

SO 

4- OC; 

compare; 







T - 

ones; 

T 4 - (ZERO) 

xor 

(T): 

* 

0 

xor 

1 

SO 

«- ones; 

compare; 







T 4 . 

OC; 

T «■ (sl) 

xor 

(T); 

* 

1 

xor 

0 

SO 

«- ones; 

compare; 







T 4 . 

ones; 

T 4 - (si) 

xor 

(T); 

* 

1 

xor 

1 

sO 

4- OC; 

compare; 








alu5: incMpanel, Mcount (Mcount) + 1; * increment Mpanel to 0010, Mcount to 0012 

T 4 - 0C; T ♦- (ZERO) andnot (T); * 0 andnot 0 

$0 4 - 0C; compare; 

T 4 - ones; T «- (ZERO) andnot (T); * 0 andnot 1 

sO 4 - 0C; compare; 

T 4 - OC; T ♦* (si) .andnot (T); * 1 andnot 0’ 

sO ♦- ones; 'comparei 

T 4 - ones; T 4 - ( S l) andnot (T); * 1 andnot 1 

sO 4 - OC; compare; 

alu 6 : incMpanel, Mcount «- (Mcount) + 1; * increment Mpanel to 0011, Mcount to 0013 



EDALU.mc 13-Mar-80 11:09:40 ' Page 5 


T «- OC; T «- (ZERO) ornot (T); * 0 ornot 0 

sO *• ones; compare; 

T <- ones; T «- (ZERO) ornot (T); * 0 ornot 1 

sO <- OC; compare; 

T «■ OC; T «- (si) ornot (T); * 1 ornot 0 

sO «* ones; compare; 

T ones; T (si) ornot (T); * 1 ornot 1 

sO «* ones; compare; 

alu7: IncMpanel, Mcount «- (Mcount) + i; * increment Mpanel to 0012, Mcount to 0014 

T *• 0C; T <- (ZERO) xnor (T); * 0 xnor 0 

sO ones; compare; 

T <- ones; T «■ (ZERO) xnor (T); * 0 xnor 1 

sO «■ 0C; compare; 

T «■ 0C; T *• (si) xnor (T); * 1 xnor 0 

siO <- 0C; compare; 

T «- ones; T *■ (si) xnor (T); * 1 xnor 1 

sO «- ones; compare; 

LOAD PAGE[Rpage]; 
gotop[stktst]; 


ON PA6E[Rpage]; 

* try the stack pointer * 

stktst: incMpanel, Mcount *• (Mcount) + 1; * Increment Mpanel to 0013, Mcount to 0015 

T «- sO *■ Rmax; 
stkp «- sO; 

I ♦- stkp; 
si 377C; 

I «- (si) and (T); 

T «- (si) xor (T); * stkp comes back complemented 

compare; 


* exercise the entire R store access through the stkp 


T 

♦- 

0C; 

calIfTfillR]; 

* 

increment 

Mpanel 

to 

0014, 

Mcount 

to 

0016 

T 

4- 

0C; 

cal 1[TchkR]; 









r 

4- 

1C; 

call[TfillR]; 

* 

increment 

Mpanel 

to 

0015, 

Mcount 

to 

0017 

r 

«- 

1C; 

cal 1[TchkR]; 









r 

4- 

2C; 

call[TfillR]; 

* 

increment 

Mpanel 

to 

0016, 

Mcount 

to 

0020 

r 

4- 

2C; 

call[TchkR]; 









r 

4- 

4C; 

call[TfillR]; 

* 

increment 

Mpanel 

to 

0017, 

Mcount 

to 

0021 

r 

4- 

4C; 

cal 1[TchkR]; 









r 

4- 

10C; 

call[TfillR]; 

* 

increment 

Mpanel 

to 

0018, 

Mcount 

to 

0022 

T 

4- 

10C; 

cal 1[TchkR]; 









r 

4- 

20C; 

cal 1[Tfi11R]; 

♦ 

increment 

Mpanel 

to 

0019, 

Mcount 

to 

0023 

T 

4- 

20C; 

call[TchkR]; 









T 

4- 

40C; 

call[TfillR]; 

♦ 

increment 

Mpanel 

to 

0020 , 

Mcount 

to 

0024 

T 

4- 

40C;. 

cal 1[TchkR]; 









T 

4- 

100 C; 

callCTfi11R]; 

* 

increment 

Mpanel 

to 

0021 , 

Mcount 

to 

0025 

T 

4- 

100 C; 

call[TchkR]; 









T 

4- 

200 C; 

cal 1[Tfi 11R 3; 

• 

increment 

Mpanel 

to 

0022 , 

Mcount 

to 

0026 

T 

4- 

200C; 

cal 1[TchkR]; 










T ♦- 400C; 


call[TfillR]; 


increment Mpanel to 0023, Mcount to 0027 
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T 

4- 

400C; 

call[TchkR]; 







T 

4- 

1000C; 

call[Tf111R]; 

* increment Mpanel to 0024, Mcount 

to 

0030 



T 

4- 

1000C; 

call[TchkR]; 







T 

4- 

2000C; 

cal 1CTfillR]; 

* increment Mpanel to 0025, Mcount 

to 

0031 



T 

4- 

2000C; 

call[TchkR]; 







T 

4- 

4000C; 

call[TfillR]; 

• Increment Mpanel to 0026, Mcount 

to 

0032 



T 

4- 

4000C; 

cal 1[TchkR]; 







T 

4- 

10000C; 

call£Tf111R] ; 

* increment Mpanel to 0027, Mcount 

to 

0033 



T 

4- 

10000C; 

cal1 [TchkR]; 







T 


20000C; 

call[TfillR]; 

• increment Mpanel to 0028, Mcount 

to 

0034 



T 

4- 

20000C; 

call[TchkR]; 







T 

4* 

40000C; 

call[Tfil!R]; 

* increment Mpanel to 0029, Mcount 

to 

0035 



T 

4- 

40000C; 

call[TchkR]; 







T 

4- 

100000C; 

cal1[Tfil1R]; 

• increment Mpanel to 0030, Mcount 

to 

0036 



T 

4* 

100000C; 

call[TchkR]; 







flzero: T 

4- 

OC; 

T 

4- 

(ZERO) ornot 

(T); 

call[TfillR]; * incr. Mpanel 

to 

0031, Mcount 

to 

0037 

T 

4» 

OC; 

T 

4- 

(ZERO) ornot 

(T); 

call[TchkR] ; 





T 

4* 

1C; 

T 

4- 

(ZERO) ornot 

(T); 

callCTfillR]; * incr. Mpanel 

to 

0032, Mcount 

to 

0040 

T 

*• 

1C; 

T 

4- 

(ZERO) ornot 

(T); 

call[TchkR]; 





T 

4- 

2C; 

T 

4- 

(ZERO) ornot 

(T); 

call[TfillR]; * incr. Mpanel 

to 

0033, Mcount 

to 

0041 

T 

4- 

2C; 

T 

4- 

(ZERO) ornot 

(T); 

cal 1[TchkR]; 





T 

4- 

4C; 

T 

4- 

(ZERO) ornot 

(T); 

call[TfillR]; * incr. Mpanel 

to 

0034, Mcount 

to 

0042 

T 

4- 

4C; 

T 

4- 

(ZERO) ornot 

(T); 

cal 1[TchkR]; 





T 

4- 

IOC; 

T 

4- 

(ZERO) ornot 

(T); 

callCTfi11R]; * incr. Mpanel 

to 

0035, Mcount 

to 

0043 

T 

4- 

IOC; 

T 

4- 

(ZERO) ornot 

(T); 

call[TchkR]; 





T 

4- 

20C; 

T 

4- 

(ZERO) ornot 

(T): 

call[TfillR]; * incr. Mpanel 

to 

0036, Mcount 

to 

0044 

T 

4- 

20C; 

T 

4- 

(ZERO) ornot 

(T); 

cal 1 [TchkR] ; 





T 

4- 

40C ; 

T 

4- 

(ZERO) ornot 

(T); 

call[Tfi 11 R ]; * incr. Mpanel 

to 

0037, Mcount 

to 

0045 

T 

4- 

40C ; 

T 

4- 

(ZERO) ornot 

<T); 

cal 1[TchkR] ; 





T 

4- 

100C ; 

T 

4- 

(ZERO) ornot 

(T); 

call[TfillR]; * Incr. Mpanel 

to 

0038, Mcount 

to 

0046 

T 

4- 

100C ; 

T 

4- 

(ZERO) ornot 

(T); 

cal 1[TchkR] ; 





T 

4- 

200C ; 

T 

4- 

(ZERO) ornot 

(T); 

call[TfillR]; * incr. Mpanel 

to 

0039, Mcount 

to 

0047 

T 

4* 

200C; 

T 

4- 

(ZERO) ornot 

(T); 

call[TchkR] ; 





T 

4- 

400C ; 

T 

4- 

(ZERO) ornot 

(T); 

call[TfillR]; * incr. Mpanel 

to 

0040, Mcount 

to 

0050 

T 

4" 

400C ; 

T 

4- 

(ZERO) ornot 

(T) ; 

cal 1[TchkR] ; 





T 

4- 

1000C; 

T 

4- 

(ZERO) ornot 

(T); 

call[TfillR]; * incr. Mpanel 

to 

0041, Mcount 

to 

0051 

T 

4- 

1000C; 

T 

4- 

(ZERO) ornot 

(T); 

call[TchkR]; 





T 

4- 

2000C; 

T 

4- 

(ZERO) ornot 

(T); 

call[TfillR]; * incr. Mpanel 

to 

0042, Mcount 

to 

0052 

T 

4- 

2000C; 

T 

4- 

(ZEROJ ornot 

(T); 

call[TchkR]; 





T 

4- 

4000C ; 

T 

4- 

(ZERO) ornot 

(T); 

call[Tfi1 1 R] ^ * incr. Mpanel 

to 

0043, Mcount 

to 

0053 

T 

4- 

4000C; 

T 

4- 

(ZERO) ornot 

(T) ; 

call [TchkR] 





T 

4- 

10000C ; 

T 

4- 

(ZERO) ornot 

(T); 

call[Tf 1 11R] ; * incr. Mpanel 

to 

0044, Mcount 

to 

0054 

T 

*• 

10000C ; 

T 

4- 

(ZERO) ornot .(T) ; 

call[TchkR]; 





T 

4- 

20000C; 

T 

4- 

(ZERO) ornot 

(T); 

call[TfillR]; * incr. Mpanel 

to 

0045, Mcount 

to 

0055 

T 

4- 

20000C; 

T 


(ZERO) ornot 

(T); 

cal 1[TchkR]; 





T 

4- 

40000C; 

T 

4* 

(ZERO) ornot 

(T); 

call[TfillR]; * incr. Mpanel 

to 

0046, Mcount 

to 

0056 

T 


40000C; 

T 

4- 

(ZERO) ornot 

(T); 

call[TchkR]; 





T 

4- 

100000C; 

T 

4- 

(ZERO) ornot 

(T); 

call[TfillR]; * incr. Mpanel 

to 

0047, Mcount 

to 

0057 

T 

4- 

100000C; 

T 

4- 

(ZERO) ornot 

(T); 

call[TchkR]; 






* write address in contents all through R 
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AfillR: incMpanel, Mcount ♦* (Mcount) + 1; • increment Mpanel to 0048, Mcount to 0060 

sO «• T «■ Rmax; 

Afi 11R1: stkp sO; 
stack «• T; 

SO - T - (sO)-l; 

LU «- (sO) - (Rmin); 
goto[AfillRl, ALU>*0]; 

* check that address is in contents all through R 

AchkR: siO «• T «• Rmax; 

AchkRl: stkp ♦* sO; 

LU (stack) # T; 
g|Oto[.+2, ALU*0]; 

AchkRer: breakpoint; * contents do not match address 

sO «- T (sO)-l; 
t.U «- (sO) - (Rmin); 
goto[AchkRl, ALU> a 0]; 

LOAD PAGE[pushpage]; 
gotop[pushl]; 


******** 0 * start SUBROUTINE: TfillR **•*•*••** 

'* write pattern in T from Rmax through Rmin in R store, increment Mpanel and Mcount 

* sO holds address 

* si holds pattern 

TfillR: incMpanel, Mcount (Mcount) + 1; 
si *■ T; 

LU <• (si) it T; 
goto[.+2, ALU=0]; 

TfillRer: breakpoint, goto[.-3]; * pattern and T disagree 

sO *■ Rmax; 

Tfi 11R1 : stkp sO; 
stack <- T; 
sO - (sO) - 1; 

LU <- (sO) - (Rmin); 
goto[TfillRl, ALU> a 0]; 

T - si; 

sO T, return; 


start SUBROUTINE: TchkR 


* takes pattern in T, break points if discrepancy is found 


TchkR: LU «■ (si) # T; 

* goto[.+2. ALU*0]; 

TchkRerO: breakpoint; 

LU ♦- (sO) n T; . 

goto[.+2, ALU=0]; 
TchkRerl; breakpoint; 

sO «- Rmax; 

TchkRl : stkp sO; 

LU ♦- (stack) it T; 
goto[.+2, ALU*0]; 
TchkRerZ: breakpoint; 

sO (sO) -1; 

LU (sO) - (Rmin); 

goto[TchkRl, ALU>*0]; 
return; 


* special check on pattern 

* pattern and T disagree 

* TfillR put the pattern in SO as part of a RETURN (checks 

* that R writes are done properly across TASK switches) 


* stkp loaded from ALUA, sigh 


* pattern does not match R 


• fit***************************************** 

ON PAGE(pushpage]; * ~ 

* test stack push and pop operations 


pushl: 


T ♦- ones; 

LOAD PAGE[Rpage]; 
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callp[Tf111R]; * Initialize area to -1, increment Mpanel to 0049 and Mcount to 0061 

sO ♦* 37C; stkp *■ sO; * use rags. 20-37 for this test (inlt. to 37 for Increment to 20) 
si T *■ 20C; * starting data (to be stored In address 20) 

rt «■ 17C; * iterations count for 20 iterations 

pushll: (stack&+l) «• T; * store data in incremented stack (will increment mod. 20) 

si «■ T «* (si) + 1; * increment data to be stored 

rt «- (rt) - 1; * decrement iterations count 

goto[pushll, ALU>*0]; 

LOAD PAGE[poppage]; 

callp[poptst]; * check proper contents 


pushml: T «- ones; 

LOAD PAGE[Rpage]; 

callp[Tf111R]; * initialize area to -1, increment Mpanel to 0060 and Mcount to 0062 

sO 20C; stkp *■ sO; * use regs. 37-20 for this test (inlt. to 20 for decrement to 37) 
si «- T *• 37C; * starting data (to be stored in address 37) 

rt *■ 17C; * iterations count for 20 iterations 

pushmll: ($tack&-l) «* T; * store data in decremented stack (will decrement mod. 20) 

si «■ T «- (si) - 1; * decrement data to be stored 

rt «* (rt) - 1; * decrement iterations count 

goto[pushmll, ALU>»0]; 

LOAO PAGE[poppage]; 

callp[poptst]; * check proper contents 


push2: T «• ones; * 

LOAD PAGE[Rpage]; 

callp[Tf111R]; * initialize area to -1, increment Mpanel to 0051 and Mcount to 0063 

sO ♦- 36C; stkp «- sO; * use even regs. 20-36 for this test (init. to 36 for increment to 20) 

si *- T «- 20C; * starting data (to be stored in address 20) 

rt «- 7C; * iterations count for 10 iterations 

push21e: (stack&+2) T; * store data in incremented stack (will increment mod. 20) 

si «- T *- (si) + (2C); * increment data to be stored 

rt *■ (rt) - 1; * decrement iterations count 

goto[push21e, ALU> a 0]; 

sO «- 37C; stkp <- sO; * use odd regs. 21-37 for this test (inlt. to 37 for increment to 21) 
si «- T <- 21C; * starting data (to be stored in address 21) 

rt «- 7C; * iterations count for 10 iterations 

push21o: (stack&+2) T; * store data in incremented stack (will increment mod. 20) 

s 1 «* T «■ (si) + (2C); * increment data to be stored 

rt «- (rt) - 1; * decrement iterations count 

goto[push21o, ALU> 3 0]; 

LOAD PAGE[poppage]; 

callp[poptst]; * check proper contents 


pushm2: T <- ones; 

LOAD PAGE[Rpage]; 

callp[TfillR]; * initialize area to -1, increment Mpanel to 0052 and Mcount to 0064 

sO «• 20C; stkp «- sO; * use even regs. 36-20 for this test (init. to 20 for decrement to 36) 

si «- T *■ 36C; * starting data (to be stored in address 36) 

rt «■ 7C;. * iterations count for 10 iterations 

pushm21e: (stack&-2) *- T; * store data in decremented stack (will decrement mod. 20) 

si <■ T ♦- (si) - (2C); * decrement data to be stored 

rt *• (rt) - 1; * decrement iterations count 

goto[pushm21e, ALU>*0]; 

sO <- 21C; stkp *- sO; * use odd regs. 37-21 for this test (init. to 21 for decrement to 37) 
si <- T «- 37C; * starting data (to be stored in address 37) 
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rt «• 7C; * iterations count for 10 iterations 

pushm21o: (stack&-2) «• T; * store data in decremented stack (will decrement mod. 20) 

si «• T (si) - (2C); * decrement data to be stored 

rt «- (rt) - 1; * decrement iterations count 

goto[pushm21o, ALU>*0]; 

LOAD PAGE[poppage]; 

callp[poptst]; * check proper contents 


push3: T *■ ones; 

LOAO PAGE[Rpage]; 
callp[TfillR]; 

sO *• 35C; stkp «- sO; 
si «- T «• 20C; 
rt ♦- 17C; 

push31: (stack&+3) «- T; 

si «- (si) + (3C); 
si - (si) and (17C); 
si «- T «• (si) + (20C); 

rt «- (rt) - 1; 
goto[push31, ALU>*0]; 

LOAD PAGE[poppage]; 
callp[poptst]; 


pushm3: T «- ones; 

LOAD PAGE[Rpage]; 

callp[TfillR]; * initialize area to -1, increment Mpanel to 0054 and Mcount to 0066 

sO «- 20C; stkp «- sO; * use regs. 37-20 for this test (init. to 20 for decrement to 35) 

si «- T «* 35C; * starting data (to be stored in address 35) 

rt «- 17C; * iterations count for 20 iterations 

pushm31: (stack&-3) «- T; * store data in decremented stack (will decrement mod. 20) 

si <- (si) - (3C); 
si <- (si) and (17C);- 

si <- T *■ (si) + (20C); * data decremented by 3's (mod. 20) 

rt «- (rt) - 1; 
goto[pushm31, ALU>=0]; 

LOAD PAGE[poppage]; 

callp[poptst]; * check proper contents 


PassCount *■ (PassCount) + 1; * increment pass count 

T «- MaxPass; 

lu ♦- (PassCount) - (T); 

goto[.+3,ALU>=0]; ' ‘.finished all passes? 

LOAD PAGE[alupage]; * 

gotop[go]; . 

Passed-EDALU-Test: PassCount ♦- 0C, breakpoint; 

LOAD PAGE[alupage]; 
gotop[go]; 


ON PAGE[poppage]; 

********** start SUBROUTINE: poptst **••*•***• 
poptst: usectask; 

T «- apc&apctask; * save the return address 

oldapc *■ T; 


* initialize area to -1, Increment Mpanel to 0053 and Mcount to 0065 

* use regs. 20-37 for this test (init. to 35 for increment to 20) 

* starting data (to be stored in address 20) 

* iterations count for 20 iterations 

* store data in incremented stack (will increment mod. 20) 

* data Incremented by 3’s (mod. 20) 

* decrement Iterations count 

* check proper contents 
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popl: 


popml: 


pop2e: 


pop2o: 


SO 

4- 

20C 





stkp 

♦- SO; 




T 

1- 

[stack&+l) 

« 

retrieves 

compare: 





sO 

4* 

21C 

T 

4- 

(stackS+1) 

compare; 

sO 

4- 

22C 

T 

4- 

(stackS+1) 

compare; 

sO 

4- 

23C 

T 

4- 

(stackS+1) 

compare; 

sO 

4- 

24C 

T 

4- 

(stackS+1) 

compare; 

sO 

4- 

25C 

T 

4- 

(stackS+1) 

compare; 

SO 

4- 

26C 

T 

4- 

(stackS+1) 

compare; 

sO 

4- 

27C 

T 

4* 

(stackS+1) 

compare; 

sO 

4- 

30C 

T 

4- 

(stackS+1) 

compare; 

sO 

4- 

31C 

T 

4- 

(stackS+1) 

compare; 

SO 

4- 

32C 

T 

4- 

(stackS+1) 

compare; 

SO 

4- 

33C 

T 

4- 

(stackS+1) 

compare; 

sO 

4- 

34C 

T 

4* 

(stackS+1) 

compare; 

SO 

4* 

35C 

T 

4- 

(stackS+1) 

compare; 

SO 


36C 

T 

4- 

(stackS+1) 

compare; 

SO 

4* 

37C 

T 

4- 

(stackS+1) 

compare; 

so 

4* 

20C 

T 

4- 

(stackS+1) 

compare; 

SO 

4* 

20C 





stkp 

♦* SO; 




T 

r 

; stack&- 

l) 



compare; 





sO 

4- 

37C 

T 

4- 

(stackS-1) 

compare; 

sO 

4- 

36C 

T 

4- 

(stackS-1) 

compare; 

sO 

4- 

35C 

T 

4- 

(stackS-1) 

compare; 

sO 

4- 

34C 

T 

f* 

(stackS-1) 

compare; 

sO 

4- 

33C 

T 

4- 

(stacks-1) 

compare; 

sO 

4* 

32C 

T 

4- 

(stackS-1) 

compare; 

sO 

4- 

31C 

T 

4- 

(stackS-1) 

compare; 

SO 

4- 

30C 

T 

4- 

(stackS-1) 

compare; 

sO 

4- 

27C 

T 

4- 

(stackS-1) 

compare; 

sO 

4- 

26C 

T 

4- 

(stackS-1) 

compare; 

sO 

4- 

25C 

T 

4- 

(stackS-1) 

compare; 

sO 

4- 

24C 

T 

4- 

(stackS-1) 

compare; 

sO 

4- 

23C 

T 

4- 

(stackS-1) 

compare; 

sO 

4- 

22C 

T 

4- 

(stackS-1) 

compare; 

sO 

4- 

21C 

T 

4- 

(stackS-1) 

compare; 

sO 

4- 

20C 

T 

4- 

(stackS-1) 

compare; 

SO 

4- 

20C; 




stkp 

<- $0; 




T 


>tack&+2) 



compare; 





SO 

4- 

22C 

T 

4- 

(stackS+2) 

compare; 

sO 

4- 

24C 

T 

4- 

(stackS+2) 

compare; 

SO 


26C 

T 

4- 

(stackS+2) 

compare; 

sO 

4- 

30C 

T 

4- 

(stackS+2) 

compare; 

SO 

4- 

32C 

T 

4- 

•(stackS+2) 

compare; 

SO 

4- 

34C 

T 

4- 

(stackS+2) 

compare; 

SO 

4- 

36C 

T 

4- 

(stackS+2) 

compare; 

SO 

4- 

20C 

T 

4- 

(stackS+2) 

compare; 

SO 

4* 

21C 





stkp 

<- sO; 




T 


(stackS+2) 



compare; 





SO 

4- 

23C 

T 

4- 

(stackS+2) 

compare; 

SO 

4- 

25C 

T 

4- 

(stackS+2) 

compare; 

SO 

4- 

27C 

T 

4* 

(stackS+2) 

compare; 

sO 

4- 

31C 

T 

4- 

(stackS+2) 

compare; 

SO 

4- 

33C 

T 

4- 

(stackS+2) 

compare; 

SO 

4- 

35C 

T 

4- 

(stackS+2) 

- compare; 

so 

4- 

37C 

T 

4- 

(stackS+2) 

compare; 

so 

4- 

21C 

T 

4- 

(stackS+2) 

compare; 

sO 

4- 

20C; 




stkp 

«* sO; 




T 


[stacks- 

2) 




popm2e: 
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compare; 


popm2o: 


sO 

4- 

36C 

T 

4- 

(stack&-2) 

compare; 

sO 

4* 

34C 

T 

4- 

(stack&-2) 

compare; 

s:0 

4- 

32C 

T 

4- 

(stack&-2) 

compare; 

sO 

4- 

30C 

T 

4- 

(stack&-2) 

compare; 

sO 

4- 

26C 

T 

4- 

(stack&-2) 

compare; 

sO 

4- 

24C 

T 

4- 

(stack&-2) 

compare; 

$0 

4- 

22C 

T 

4- 

(stack&-2) 

compare; 

s;0 

4- 

20C 

T 

4- 

(stack&-2) 

compare; 

sO 

4- 

21C 





stkp 

*• sO; 




T <- 

stack&- 

2) 



compare; 





sO 

4- 

37C 

T 

4- 

(stack&-2) 

compare; 

SO 

4- 

35C 

T 

4- 

(stack&-2) 

compare; 

sO 

4- 

33C 

T 

4- 

(stack&-2) 

compare; 

SO 

4- 

31C 

T 

4- 

(stack&-2) 

compare; 

SO 

4- 

27C 

T 

4- 

(stack&-2) 

compare; 

SO 

4- 

25C 

T 

4- 

(stack&-2) 

compare; 

so 

4- 

23C 

T 

4- 

(stack&-2) 

compare; 

SO 

4- 

21C 

T 

4- 

(stack&-2) 

compare; 


LOAD PAGE[popxpage]; 
gotop[pop3]; 
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* 


ON PAGE[popxpage]; 


pop3: 


popm3: 


sO 

4- 

20C 





stkp 

sO; 




I ♦ 

(stack&+3)- 



compare; 





SO 

4- 

23C 

T 

4- 

(stack&+3) 

compare; 

sO 

4- 

26C 

T 

4- 

(stack&+3) 

compare; 

sO 

4- 

31C 

T 

4- 

(stack&+3) 

compare; 

sO 

4- 

34C 

T 

4- 

(stack&+3) 

compare; 

sO 

4- 

37C 

T 

4- 

(stack&+3) 

compare; 

SO 

4- 

22C 

T 

4- 

(stack&+3) 

compare; 

sO 

4- 

25C 

T 

4- 

(stack&+3) 

compare; 

SO 

4- 

30C 

T 

4- 

(stack&+3) 

compare; 

sO 

4- 

33C 

T 

4- 

(stack&+3) 

compare; 

SO 

4- 

36C 

T 

4- 

{stack&+3) 

compare; 

$0 

4- 

21C 

T 

4- 

(stack&+3) 

compare; 

SO 

4- 

24C 

T 

4- 

(stack&+3) 

compare; 

SO 

4- 

27C 

T 

4- 

(stack&+3) 

compare; 

sO 

4- 

32C 

T 


(stack&+3) 

compare; 

SO 

4- 

35C 

T 

4* 

(stack&+3) 

compare; 

so 

4- 

20C 

T 

4- 

(stack&+3) 

compare; 

so 

4- 

20C 





stkp 

♦* SO; 




T 

- 

stack&-3) 



compare; 





sO 

4- 

35C 

T 

4- 

(stack&-3) 

compare; 

sO 

4- 

32C 

T 

4- 

( stack&-3) 

compare; 

sO 

4- 

27C 

T 

4- 

(stack&-3) 

compare; 

SO 

4- 

24C 

T 

4- 

(stack&-3) 

compare; 

sO 

4- 

21C 

T 

4- 

(stack&-3) 

compare; 

sO 

f 

36C 

T 

4- 

(stack&-3) 

compare; 

sO 

4- 

33C 

T 

4- 

(stack8f-3) 

compare; 

SO 

4- 

30C 

T 

4- 

( stack&-3) 

compare; 

sO 

4- 

25C 

T 

4* 

(stack&-3) 

compare; 

SO 

4- 

22C 

T 

4- 

(stack&-3) 

compare; 

sO 

4- 

37C 

T 

4- 

(stack&-3) 

compare; 

sO 

4- 

34C 

T 

4- 

( stack&-3) 

compare; 

sO 

4- 

31C 

T 

4- 

( stack&-3) 

compare; 

SO 

4- 

26C 

T 

4- 

(stack&-3) 

compare; 

SO 

4- 

23C 

T 

4- 

(stack&-3) 

compare; 

sO 

4- 

20C 

T 

4- 

(stack&-3) 

compare; 
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apc&apctask «- oldapc; 
return; 

**** end SUBROUTINE: poptst 


ONPAGE[0]; 


********** start SUBROUTINE: compareO 

compareO: LU (sO) It (T); 

goto[success, ALU-O]; 

fail: breakpoint; 

success:return; 

************ end SUBROUTINE: compareO 

*** similarly: *** 

ONPAGE[l]; 

comparel: LOADPAGE[0]; 

gotop[compareO]; 

ONPAGE[2]; 

compare2: L0A0PAGE[0]; 

gotop[compareO]; 

0NPAGE[3]; 

compare3: L0A0PAGE[0]; 

gotop[compareO]; 

0NPAGE[4]; 

compare4: LOADPAGE[0]; 

gotop[compare0]; 

0NPAGE[5]; 

compare5: LOADPAGE[0]; 

gotop[compareO]; 


end; 










EDALU 


BEGIN 


initialize registers 


a!u2: 


INC M 


Mpanel =0007 
Mcount >0007 


start: 

go: 


PassCount *-0 
MaxPass <- 1000C 


PI d m I Mpanel =0000 
,VI I Mcount =0000 


test the ALU operation "and* 

OandO 
0 and 1 
1 and 0 
1 and 1 


for each 
pattern: 

CALL compareO 

(page 03) 


- X. _ 

generate task switch 



alu3: 

INCM 

to TASK 0 






Mpanel =0008 
Mcount >0010 


TASK 

fail to switch? 


badnotify: | 
fBREAKPOINTj 


test the ALU operation "or'': 


for each 
pattern: 

CALL compareO 

(page 03) 


TO: r-*- 

cause tasks 1-15 to 

bwnotify: » resume « at 

badwake: badwake 
bwnot: if awakened 

x r et: t— —■ 


TtoR: 


RtoT: 


test T 
with a 


INC M I Mpanel = 0001 

IINV * IVI I Mcount =0001 


r pass around ALU path 
a 16-bit word of 000377 


INC M I Mpanel s0002 

iinv^ IVI 1 Mcount =0002 


test R pas 
with a 16- 


pass around ALU path 
16-bit word of 000377 


contst: 


Mpanel - 0003 
!NC M I Mcount = 0003 


test FI F2 ALU constant generation 
of zero and of all possible 16-bit 
constants with a single nonzero bit 


alu4: 


INC M 


Mpanel =0009 
Mcount =0011 


test the ALU operation "xor": 

OxorO 
0 xor 1 
1 xorO 
1 xor 1 


for each 
pattern: 

CALL compareO 

(page 03) 


CALL 

compareO 

(page 03) 


CALL 

compareO 

(page 03) 


CALL 

compareO 

(page 03) 


alu5: 


INC M 


Mpanel =0010 
Mcount =0012 


test the ALU operation "andnot": f0f each 


0 andnot 0 
0 andnot1 
1 andnot 0 
1 andnot1 


pattern: 

CALL compareO 

(page 03) 


INC M 


Mpanel = 0011 
Mcount =0013 


test the ALU operation "ornot": 

0 ornot 0 
0 ornot1 
1 ornot O 
1 ornot 1 


for each 
pattern: 

CALL compareO 

(page 03) 


aluist: 


IMP m | Mpanel =0004 
i in ivi | Mcount =0004 


INC M 


Mpanel =0012 
Mcount =0014 


test cycler/masker generation of ZERO. CALL 

test adding 1 to aT register of all ones CompareO 
using the (zero) ♦ (T) + (1) function (page 03) 


INC M I Mpanel =0005 
IVI I Mcount =0005 

. — j' -_- 

t€tst storing and receiving a word of CALL 

alii zeroes and all ones from a T register COmpareO 
L____ __ (page 03) 


test the ALU operation "xnor' 


stktst: 


0 xnorO 
O xnor 1 
1 xnorO 
1 xnor 1 


INC M 


for each . 
pattern: 

CALL compareO 

(page 03) 


Mpanel =0013 
Mcount =0015 


■ M Tji I Mpanel = 0006 
INCM 1 Mcount =0006 


test the stack pointer (stkp) by 
writing octal 317 into it and 
reading it back (inverted) 


test storing and receiving a word of CALL 

all zeroes and alt ones from an R register COrnpa reu 
_ ... . - --—..- ..-.J (page03) 


flone 

(page 02) 
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flone: 


INC M 


IncM before 
each pattern 


test R store locations 20*317 
with the following patterns: 

• a 16-bit word of zeroes 

• all possible 16-bit words with 

only a single nonzero bit 


Mpanel =0014-0030 
Mcount =0016-0036 

For each 
pattern: 

CALL TfillR 
CALL TchkR 

(page 03) 


pushl: 

push'll: 


INC M 


init R regs 20-317 
to all ones, incM 


use push with autoincrement ♦ 1 to store 
R-regs 20-37 with corresp addresses. 

check with poptst 


Mpanel = 004€ 
Mcount Vi 

CALL 

TfillR, 

poptst 

(page 03) 


flzero: 


INC M 


incM before 
each pattern 


test R store locations 20-317 
with the following patterns: 

• a 16-bit word of all ones 

• all possible 16-bit words with 

only a single zero bit 


Mpanel =0031-0047 
Mcount =0037-0057 

For each 
pattern:. 

CALL TfillR 
CALL TchkR 

(page 03) 


pushml 

pushml! 


init R regs 20-317 
to all ones, incM 


use push with autolncroment - 1 to store 
R-regs 20-37 with corresp addresses. 

check with poptst 


Mpanel =C05( 
Mcount =006< 

CALL 

TfillR, 

poptst 

(page 03) 


AfillR: 


AfillRI: 


ihi/> m I Mpanel =0048 
INCM I Mcount =0060 


-*- AfillR fills words 20-317 

SO«- T - (Rmax'» 317) of the R file with their own 
- i - addresses as data 


Stkp ♦- SO 
Stack *-T 
decrement SO 
SO - T - SO 


S0>= (Rmin = 20)? 


push2: 

push2le: 

push2lo: 


pushm2: 

pushm2le: 

pushm2lo: 


INC M 


init R regs 20-317 
to all ones, incM 


use push with autoincrement + 2 to store 
R-regs 20-37 with corresp addresses. 

check with poptst 


init R regs 20-317 
to all ones, incM 


INC M 


use push with autoincrement - 2 to store 
R-regs 20-37 with corresp addresses. 

check with poptst 


Mpanel =005' 
Mcount = 0Q6C 

CALL 

TfillR, 

poptst 

(page 03) 


Mpanel =0052 
Mcount =006-^ 

CALL 

TfillR, 

poptst 

(page 03) 


AchkRI: 


SO «- T ♦- (Rmax = 317) 

v 

f 

Stkp 

-SO 

\ 

/ 

^ Stack 

■" ) 


yes 

^- 


decrement SO 
SO - T - SO 


AchkR checks that the 


of the R file match their 
addresses 


AchkRer: 

fBREAKPOINT| 


push3: 

push3l: 


pushm3: 

pushm3l: 


I INCM | 


R regs 20-317 Mpanel - 

Hones, incM Mcount =006£ 


use push with autoincrement + 3 to store 
R-regs 20-37 with corresp addresses. 

check with poptst 


init R regs 20-317 
to all ones, incM 


use push with autoincrement - 3 to store 
R-regs 20-37 with corresp addresses. 

check with poptst 


CALL 

TfillR, 

poptst 

(page 03) 


Mpanel = 005* 
Mcount =006f 

CALL 

TfillR, 

poptst 

(page 03) 


S0>= (Rmin = 20)? 


increment pass count 


done with ail passes? 
(PassCount>= MaxPass?) 


go 

(paged) 


paascount-O | 

Passed-EDALU-Test: I BREAKPOINT| “count loot? 


XEROX D(0) PROGRAM NAME 

ED Diaanostic EDALU 


DOCUMENTATION FILE 

EDALU*02,sil 



REV | DATE 


1/8/80 


PAGE 

02 












sTaB 


gUffi 


TchkR 


SI * T? 


to the constant in T 


BREAKPOINT 


SO a T? 


SO«- (Rmax = 317) 

I ' 

Stkp <- SO 

-J- 

/ 

Stack ■ T? 

S-,- 

yes 


Tch kRer2: 

{"breakpoint] 


RETURN 


SO > = (Rmln = 20)? 


RETURN 


pop stack with autoincrement of +1 
addr: 20-37, 20 

pop stack with autoincrement of -1 
addr: 20, 37-20 


popm2e: 

popm2o: 


popmO: 


pop stack with 
addr: 20-36, 

pop stack with 
addr: 21-37, 

pop stack with 
addr: 20, 36- 

pop stack with 
addr: 21,37- 

pop stack with 
addr: 20-37, 

pop stack with 
addr: 20, 3.7- 


autoincrement of + 2 

20 (even only) 

autoincrement of ♦2 

21 (odd only) 

autoincrement of *2 

20 (even only) 

autoincrement of -2 

21 (odd only) 

autoincrement of *3 
20 (interlaced) 

autoincrement of -3 
20 (interlaced) 


RETURN 


restore return link 


RETURN 
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PARITY 

0 

REVISION 

1 

COMM-ER0 

CYCLECONTROL 

63 

RUN-TIME 

11 

COMM-ER1 

PCXREG 

2 

PASSCOUNT 

0 

C0MM-ER2 

PCFREG 

2 

MAXPASS 

1000 

BOOT-ERR 

DBREG 

77 



♦B00TREA30N 

SBREQ 

77 



MEMSYNOROME 

MNBR 161007 




SSTKP 

0 




3TKP 

0 

MCOUNT 

0 


♦ALURE8ULT 

3 




3ALUF 

0 




T 20 

7000 




AATOVA 

0 




TPC 20 

7777 




CALLER ILC0+6217 




♦PAGE 

5 

T 0 

7000 


*APC 

7011 

30 

176405 


♦APCTASK 

16 

SI 

0 

* 

♦CIA 

GO+1 




CTASK 

0 




Loaded: EDALU 




T i rni 

Step at 0:GO, 

BP at 

0: GO+1 



Exit Boot Run 

-Prog 

Read-Gmds Break UnBreak GlrAddedBP; 

S3 Continue 

Load LdSyms Compare 

Test-All 

Test Dump SI 


40 

164247 


V irtua1 


Q Q Q Q 
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MicroD 8.6 (OS 16) of April 27, 1979 
at 10-Jan-80 12:52:59 

microd.run EDALU.dlb 


EDALU.dlift 1560b Instructions written 10-Jan-80 12:51:04 

Total of 1560b Instructions 

Checking for errors... 

Linking... 

Building allocation lists... 

Assigning locations... 

1560b instructions In rings involving 0NPAGE or AT 
Reloading binaries... 

Checking assignment... 

Writing .MB flie... 

Writing 1isting... 

IM: 


Imag 

Real 

WO 

W1 

W2 

Symbol 

DALU. 

0 

d 1 1t): 

2401 

47 

7130 

1 

GO START 

1 

2554 

32176 

101126 

5 

( + D 

2 

2553 

30020 

113124 

1 

(+2) 

3 

2552 

30147 

21060 

0 

( + 3) 

4 

2430 

50 

25401 

0 

(+4) 

5 

b 2555 

50 

25003 

0 

BADNOTIF 

6 

@2400 

30035 

113043 

3 

TO 

7 

2721 

30301 

101006 

0 

( + 1) 

10 

2403 

30147 

21147 

1 

BWNOTIFY 

11 

2563 

50 

25401 

0 

(+1) 

12 

@2431 

31421 

101152 

1 

(+2) 

13 

2565 

30162 

33151 

1 

(+3) 

14 

2564 

50 

24004 

0 

(+4) 

15 

@2420 

30020 

113344 

5 

BWNOT 

16 

2421 

47 

27137 

1 

BADWAKE 

17 

2557 

50150 

65135 

15 

( + 1) 

20 

b 2556 

50 

25003 

0 

(+2) 

21 

2722 

50 

25401 

0 

(+3) 

22 

2562 

30301 

123143 

5 

XRET 

23 

2561 

30147 

21140 

5 

( + 1) 

24 

2560 

50 

25401 

0 

(+2) 

25 

2402 

33047 

105040 

7 

TTOR 

26 

2720 

30020 

141037 

3 

(+1) 

27 

2717 

17 

77034 

3 

(+2) 

30 

2716 

30050 

125120 

1 

(+3) 

31 

2550 

50 

25232 

3 

(+4) 

32 

2551 

33047 

105161 

5 

RTOT 

.33 

2570 

30020 

141157 

1 

( + 1) 

34 

2567 

30017 

137154 

1 

(+2) 

35 

2566 

30150 

65114 

1 

(+3) 

36 

2546 

50 

25232 

3 

(+4) 

37 

2547 

33047 

105164 

5 

CONTST 

40 

2572 

30176 

101162 

1 

"(*1) 

41 

2571 

20 

41111 

1 

(+2) 

42 

2544 

50 

25232 

3 

(+3)" 

43 

2545 

31076 

101167 

1 

(+4) 

44 

2573 

0 

43105 

1 

(+5) 

45 

2542 

50 

25232 

3 

(+6) 

46 

2543 

31150 

125170 

1 

(+7) 

47 

2574 

0 

45100 

1 

( + 10) 

50 

2540 

50 

25232 

3 

(+11) 

.51 

2541 

31150 

125173 

1 

( + 12) 

52 

2575 

0 

51075 

1 

( + 13) 

53 

2536 

50 

25232 

3 

( + 14) 

54 

2537 

31150 

125175 

1 

( + 15) 

55 

2576 

0 

61070 

1 

( + 16) 

56 

2534 

50 

25232 

3 

( + 17) 

57 

2535 

31150 

125176 

1 

(+20) 

60 

2577 

1 

41064 

1 

(+21) 

61 

2532 

50 

25232 

3 

(+22) 
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EDALU. 

dls 



13 

-Mar-80 

62 

2533 

31150 

125000 

2 

(+23) 

63 

2600 

2 

41061 

1 

(+24) 

64 

2530 

50 

25232 

3 

(+25) 

65 

2531 

31150 

125003 

2 

(+28) 

66 

2601 

4 

41054 

1 

(+27) 

67 

2526 

50 

25232 

3 

(+30) 

70 

2527 

31150 

125006 

2 

(+31) 

71 

2602 

10 

41051 

1 

(+32) 

72 

2524 

50 

25232 

3 

(+33) 

73 

2525 

31150 

125006 

2 

(+34) 

74 

2603 

20 

43044 

1 

(+36) 

75 

2522 

50 

25232 

3 

(+36) 

76 

2523 

31150 

125011 

2 

(+37) 

77 

2604 

20 

45041 

1 

(+40) 

100 

2520 

50 

25232 

3 

( + 41) 

101 

2521 

31150 

125012 

2 

(+42) 

102 

2605 

20 

51035 

1 

( + 43) 

103 

2516 

50 

25232 

3 

(+44) 

104 

2517 

31150 

125014 

2 

( + 46) 

105 

2606 

20 

61030 

.1 

(+48) 

106 

2514 

50 

25232 

3 

(+47) 

107 

2515 

31150 

125017 

2 

(+60) 

110 

2607 

21 

41024 

1 

(+51) 

111 

2512 

50 

25232 

3 

(+52) 

112 

2513 

31150 

125021 

2 

( + 53) 

113 

2610 

22 

41021 

1 

(+54) 

114 

2510 

50 

25232 

3 

(+55) 

115 

2511 

31150 

125022 

2 

(+56) 

116 

2611 

24 

41014 

1 

(+57) 

117 

2506 

50 

25232 

3 

(+60) 

120 

2507 

31150 

125024 

2 

(+61) 

121 

2612 

30 

41011 

1 

(+62) 

122 

2504 

50 

25232 

3 

(+63) 

123 

2505 

33047 

105030 

6 

ALUTST 

124 

2614 

30176 

101027 

2 

( + 1) 

125 

2613 

20 

41004 

1 

(+2) 

126 

2502 

50 

25232 

3 

(+3) 

127 

2503 

30020 

101034 

2 

( + 4) 

130 

2616 

31376 

141033 

6 

(+5) 

131 

2615 

1276 

41001 

1 

(+6) 

132 

2500 

50 

25232 

3 

(+7) 

133 

2501 

33047 

105041 

6 

ALUO 

134 

2620 

1376 

41036 

2 

( + 1) 

135 

2617 

30050 

125174 

0 

(+2) 

136 

2476 

50 

25232 

3 

(+3) 

137 

2477 

20 

41043 

2 

( + 4) 

140 

2621 

30050 

125171 

0 

(+5) 

141 

2474 

50 

25232 

3 

(+6) 

142 

2475 

33047 

105047 

6 

ALU1 

143 

2623 

30020 

101045 

2 

( + 1) 

144 

2622 

30150 

65164 

0 

(+2) 

145 

2472 

50 

25232 

3 

(+3) 

146 

2473 

31376 

101050 

2 

(+4) 

147 

2624 

30150 

65161 

0 

(+5) 

150 

2470 

50 

25232 

3* 

(+6) 

151 

2471 

33047 

105056 

6 

ALU2 

152 

2627 

20 

41054 

2 

( + 1) 

153 

2626 

276 

41053 

2 

(+2) 

154 

2625 

30020 

101154 

0 

(+3) 

155 

2466 

50 

25232 

3 

(+4) 

156 

2467 

1376 

41063 

2 

(+5) 

157 

2631 

276 

41060 

2 

(+6). 

160 

2630 

30020 

101151 

0 

(+7) 

161 

2464 

50 

25232 

3 

( + 10) 

162 

2465 

20 

41067 

2 

( + 11) 

163 

2633 

30250 

65065 

6 

( + 12) 

164 

2632 

30020 

101145 

0 

( + 13) 

165 

2462 

50 

25232 

3 

( + 14) 

166 

2463 

13*76 

41072 

2 

( + 15) 

167 

2635 

30250 

65071 

6 

. (+16) 

170 

2634 

31376 

10U41 

o - 

( + 17) 

171 

2460 

50 

25232 

3 

(+20) 

172 

2461 

33047 

105101 

8 

ALU3 

173 

2640 

20 

41076 

2 

( + 1) 

174 

2637 

376 

41075 

2 

(+2) 

175 

2636 

30020 

101134 

0 

(+3) 
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176 

2456 

50 

25232 

3 

(+4) 

177 

2457 

1376 

41104 

2 

(+5) 

200 

2642 

376 

41103 

2 

(+6) 

201 

2641 

31376 

101130 

0 

(+7) 

202 

2454 

50 

25232 

3 

( + 10) 

203 

2455 

20 

41111 

2 

(+11) 

204 

2644 

30350 

65106 

8 

( + 12) 

205 

2643 

31376 

101124 

0 

( + 13) 

206 

2452 

50 

25232 

3 

( + 14) 

207 

2463 

1376 

41115 

2 

( + 15) 

210 

2646 

30350 

65112 

6 

( + 16) 

211 

'2645 

31376 

101121 

0 

( + 17) 

212 

2450 

50 

25232 

3 

(+20) 

213 

2451 

33047 

105123 

6 

ALU4 

214 

2651 

20 

41121 

2 

( + 1) 

215 

2650 

476 

41116 

2 

(+2) 

216 

2647 

30020 

101115 

0 

(+3) 

217 

2446 

50 

25232 

3 

(+4) 

220 

2447 

1376 

41126 

2 

(+5) 

221 

2653 

476 

41125 

2 

(+6) 

222 

2652 

31376 

101111 

0 

( + 7) 

223 

2444 

50 

25232 

3 

( + 10) 

224 

2445 

20 

41133 

2 

( + 11) 

225 

2655 

30450 

65131 

6 

( + 12) 

226 

2654 

31376 

101105 

0 

( + 13) 

227 

2442 

50 

25232 

3 

( + 14) 

230 

2443 

1376 

41137 

2 

( + 15) 

231 

2657 

30450 

65134 

6 

( + 16) 

232 

2656 

30020 

101101 

0 

( + 17) 

233 

2440 

50 

25232 

3 

(+20) 

234 

2441 

33047 

105145 

6 

ALU5 

235 

2662 

20 

41142 

2 

( + 1) 

236 

2661 

576 

41141 

2 

( + 2) 

237 

2660 

30020 

101074 

0 

(+3) 

240 

2436 

50 

25232 

3 

(+4) 

241 

2437 

1376 

41151 

2 

(+5) 

242 

2664 

576 

41147 

2 

(+6) 

243 

2663 

30020 

101071 

0 

(+7) 

244 

2434 

50 

25232 

3 

( + 10) 

245 

2435 

20 

41155 

2 

( + 11) 

246 

2666 

30550 

65153 

6 

( + 12) 

247 

2665 

31376 

101064 

0 

( + 13) 

250 

2432 

50 

25232 

3 

( + 14) 

251 

2433 

1376 

41161 

2 

( + 15) 

252 

2670 

30550 

65156 

6 

( + 16) 

253 

2667 

30020 

101055 

0 

( + 17) 

254 

2426 

50 

25232 

3 

(+20) 

255 

2427 

33047 

105167 

6 

ALU6 

256 

2673 

20 

41165 

2 

( + D 

257 

2672 

676 

41163 

2 

(+2) 

260 

2671 

31376 

101051 

0 

(+3) 

261 

2424 

50 

25232 

3 

(+4) 

262 

2425 

1376 

41173 

2 

(+5) 

263 

2675 

676 

41171 

2 

(+6) 

264 

2674 

30020 

101044 

0 

( + 7) 

265 

2422 

50 

25232 

3 

( + 10) 

266 

2423 

20 

41177 

2 

( + 11) 

267 

2677 

30650 

65174 

6 

( + 12) 

270 

2676 

31376 

101034 

0 

( + 13) 

271 

2416 

50 

25232 

3 

( + 14) 

272 

2417 

1376 

41002 

3 

( + 15) 

273 

2701 

30650 

65000 

7 

( + 16) 

274 

2700 

31376 

101031 

0 

( + 17) 

275 

2414 

50 

25232 

3 

(+20) 

276 

2415 

33047 

105010 

7 

ALU7 

277 

2704 

20 

41006 

3 

( + 1) 

300 

2703 

776 

41004 

3 

(+2) 

301 

2702 

31376 

101025 

0 

(+3) 

302 

2412 

50 

25232 

3 

(+4) 

303 

2413 

1376 

41015 

3 

(+5) 

304 

2706 

776 

41013 

3 

(+6) 

305 

2705 

30020 

101021 

0 

( + 7) 

306 

2410 

50 

25232 

3 

( + 10) 

307 

2411 

20 

41021 

3 

( + 11) 

310 

2710 

30750 

65016 

7 

( + 12) 

311 

2707 

30020 

101011 

0 

( + 13) 
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312 

2404 

50 

25232 

3 

( + 14) 

313 

2405 

1376 

41026 

3 

( + 15) 

314 

2713 

30750 

65025 

7 

( + 16) 

315 

2712 

31376 

101015 

0 

( + 17) 

316 

2406 

50 

25232 

3 

(+20) 

317 

2407 

45 

3022 

3 

(+21) 

320 

2711 

50 

25070 

2 

(+22) • 

321 

634 

33047 

106100 

7 

STKTST 

322 

740 

30014 

177077 

3 

( + 1) 

323 

737 

30150 

3074 

3 

(+2) 

324 

736 

70166 

47073 

17 

(+3) 

325 

735 

30017 

137071 

7 

(+4) 

326 

734 

30250 

65067 

7 

(+6) 

327 

733 

30450 

65066 

6 

(+6) 

330 

632 

50 

25274 

2 

( + 7) 

331 

633 

20 

41045 

1 

FLONE 

332 

522 

50 

25361 

2 

( + 1) 

333 

523 

20 

41061 

2 

(+2) 

334 

630 

50 

25264 

3 

(+3) 

335 

631 

0 

43040 

1 

( + 4) 

336 

520 

50 

25361 

2 

(+5) 

337 

521 

0 

43054 

2 

(+8) 

340 

626 

50 

25264 

3 

( + 7) 

341 

627 

0 

45034 

1 

( + 10) 

342 

516 

50 

25361 

2 

( + 11) 

343 

517 

0 

45051 

2 

( + 12) 

344 

624 

50 

25264 

3 

( + 13) 

345 

625 

0 

51031 

1 

( + 14) 

346 

514 

50 

25361 

2 

( + 15) 

347 

515 

0 

51045 

2 

( + 16) 

350 

622 

50 

25264 

3 

( + 17) 

351 

623 

0 
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1106 

2163 

30001 

133063 

2 

(+50) 

1107 

2231 

42150 

65141 

15 

(+51) 

1110 

2160 

50 

25262 

3 

(+52) 

1111 

2161 

30001 

135065 

2 

(+53) 

1112 

2232 

42150 

65135 

15 

(+54) 

1113 

2156 

50 

25262 

3 

(+55) 

1114 

2157 

30001 

137067 

2 

(+66) 

1115 

2233 

42150 

65130 

15 

(+57) 

1116 

2154 

50 

25262 

3 

(+60) 

1117 

2155 

30001 

101070 

2 

(+61) 

1120 

2234 

42150 

65124 

15 

(+62) 

1121 

'2152 

50 

25262 

3 

(+63) 

1122 

2153 

30001 

101075 

2 

POPM1 

1123 

2236 

30150 

3073 

2 

( + 1) 

1124 

2235 

44150 

65121 

15 

(+2) 

1125 

2150 

50 

25262 

3 

(+3) 

1126 

2151 

30001 

137076 

2 

(+4) 

1127 

2237 

44150 

65114 

15 

(+6) 

1130 

2146 

50 

25262 

3 

(+6) 

1131 

2147 

30001 

135101 

2 

(+7) 

1132 

2240 

44150 

65111 

15 

( + 10) 

1133 

2144 

50 

25262 

3 

( + 11) 

1134 

2145 

30001 

133102 

2 

(+12) 

1135 

2241 

44150 

65105 

15 

(+13) 

1136 

2142 

50 

25262 

3 

( + 14) 

1137 

2143 

30001 

131105 

2 

( + 15) 

1140 

2242 

44150 

65100 

15 

(+16) 

1141 

2140 

50 

25262 

3 

( + 17) 

1142 

2141 

30001 

127107 

2 

(+20) 

1143 

2243 

44150 

65075 

15 

(+21) 

1144 

2136 

50 

25262 

3 

(+22) 

1145 

2137 

30001 

125111 

. 2 

(+23) 

1146 

2244 

44150 

65070 

15 

(+24) 

1147 

2134 

50 

25262 

3 

(+25) 

1150 

2135 

30001 

123112 

2 

(+26) 

1151 

2245 

44150 

65064 

15 

(+27) 

1152 

2132 

50 

25262 

3 

(+30) 

1153 

2133 

30001 

121115 

2 

(+31) 

1154 

2246 

44150 

65061 

15 

(+32) 

1155 

2130 

50 

25262 

3 

(+33) 

1156 

2131 

30001 

117116 

2 

(+34) 

1157 

2247 

44150 

65054 

15 

(+35) 

1160 

2126 

50 

25262 

3 

(+36) 

1161 

2127 

30001 

115121 

2 

(+37) 

1162 

2250 

44150 

65051 

15 

(+40) 

1163 

2124 

50 

25262 

3 

(+41) 

1164 

2125 

30001 

113122 

2 

(+42) 

1165 

2251 

44150 

65045 

15 

(+43) 

1166 

2122 

50 

25262 

3 

(+44) 

1167 

2123 

30001 

111125 

2 

(+45) 

1170 

2252 

44150 

65040 

15 

(+46) 

1171 

2120 

50 

25262 

3 

(+47) 

1172 

2121 

30001 

107127 

2 

(+50) 

1173 

2253 

44150 

65034 

15 

(+51) 

1174 

2116 

50 

25262 

3 

(+52) 

1175 

2117 

30001 

105131 

2 

(+53) 

1176 

2254 

44150 

65031 

15 

(+54) 

1177 

2114 

50 

25262 

3 

(+55) 

1200 

2115 

30001 

103132 

2 

(+56) 

1201 

2255 

44150 

65025 

15 

(+57) 

1202 

2112 

50 

25262 

3 

(+60) 

1203 

2113 

30001 

101135 

2 

(+61) 

1204 

2256 

44150 

65020 

15 

(+62) 

1205 

2110 

50 

25262 

3 

(+63) 

1206 

2111 

30001 

101141 

2 

POP2E 

1207 

2260 

30150 

3136 

2 

(+1) 

1210 

2257 

40150 

47014 

15 

(+2) 

1211 

2106 

. 50 

25262 

3 

(+3) 

1212 

2107 

30001 

105143 

2 

(+4)- 

1213 

2261 

40150 

47011 

15 

(+5) 

1214 

2104 

50 

25262 

3 

(+6) 

1215 

2105 

30001 

111145 

2 

(+7) 

1216 

2262 

40150 

47005 

15 

( + 10) 

1217 

2102 

50 

25262 

3 

(+11) 

1220 

2103 

30001 

115147 

2 

(+12) 

1221 

2263 

40150 

47000 

15 

(+13) 
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EDALU. 

dlS 



13 

-Mar-80 
• ' 

1222 

2100 

50 

25262 

3 

( + 14) 

1223 

2101 

30001 

121151 

2 

( + 15) 

1224 

2264 

40150 

47174 

14 

( + 16) 

1225 

2076 

50 

25262 

3 

( + 17) 

1226 

2077 

30001 

125153 

2 

(+20) 

1227 

2265 

40150 

47171 

14 

(+21) 

1230 

2074 

50 

25262 

3 

(+22) 

1231 

2075 

30001 

131155 

2 

(+23) 

1232 

2266 

40150 

47165 

14 

(+24) 

1233 

2072 

50 

25262 

3 

(+25) 

1234 

2073 

30001 

135157 

2 

(+26) 

1235 

2267 

40150 

47160 

14 

(+27) 

1236 

2070 

50 

25262 

3 

(+30) 

1237 

2071 

30001 

101160 

2 

(+31) 

1240 

2270 

40150 

47155 

14 

(+32) 

1241 

2066 

50 

25262 

3 

(+33) 

1242 

2067 

30001 

103164 

2 

P0P20 

1243 

2272 

30150 

3163 

2 

( + 1) 

1244 

2271 

40150 

47150 

14 

(+2) 

1245 

2064 

50 

25262 

3 

(+3) 

1246 

2065 

30001 

107166 

2 

(+4) 

1247 

2273 

40150 

47144 

14 

(+5) 

1250 

2062 

50 

25262 

3 

(+6) 

1251 

2063 

30001 

113171 

2 

(+7) 

1252 

2274 

40150 

47141 

14 

(+10) 

1253 

2060 

50 

25262 

3 

( + 11) 

1254 

2061 

30001 

117173 

2 

( + 12) 

1255 

2275 

40150 

47135 

14 

(+13) 

1256 

2056 

50 

25262 

3 

( + 14) 

1257 

2057 

30001 

123174 

2 

( + 15) 

1260 

2276 

40150 

47130 

14 

( + 16) 

1261 

2054 

50 

25262 

3 

( + 17) 

1262 

2055 

30001 

127176 

2 

(+20) 

1263 

2277 

40150 

47124 

14 

(+21) 

1264 

2052 

50 

25262 

3 

(+22) 

1265 

2053 

30001 

133001 

3 

(+23) 

1266 

2300 

40150 

47121 

14 

(+24) 

1267 

2050 

50 

25262 

3 

(+25) 

1270 

2051 

30001 

137003 

3 

(+26) 

1271 

2301 

40150 

47114 

14 

(+27) 

1272 

2046 

50 

25262 

3 

(+30) 

1273 

2047 

30001 

103004 

3 

(+31) 

1274 

2302 

40150 

47111 

14 

(+32) 

1275 

2044 

50 

25262 

3 

(+33) 

1276 

2045 

30001 

101011 

3 

POPM2E 

1277 

2304 

30150 

3006 

3 

( + 1) 

1300 

2303 

46150 

65105 

14 

(+2) 

1301 

2042 

50 

25262 

3 

(+3) 

1302 

2043 

30001 

135013 

3 

(+4) 

1303 

2305 

46150 

65100 

14 

(+5) 

1304 

2040 

50 

25262 

3 

(+6) 

1305 

2041 

30001 

131014 

3 

(+7) 

1306 

2306 

46150 

65075 

14 

( + 10) 

13.07 

2036 

50 

25262 

3 

( + 11) 

1310 

2037 

30001 

125017 

3 

( + 12) 

1311 

2307 

46150 

65070 

14 

(+13) 

1312 

2034 

50 

25262 

3 

( + 14) 

1313 

2035 

30001 

121020 

3 

J + 15) 

1314 

2310 

46150 

65064 

14 

1 + 16) 

1315 

2032 

50 

25262 

3 

( + 17) 

1316 

2033 

30001 

115022 

3 

(+20) 

1317 

2311 

46150 

65061 

14 

(+21) 

1320 

2030 

50 

25262 

3 

(+22) 

1321 

2031 

30001 

111025 

3 

(+23) 

1322 

2312 

46150 

65054 

14 

(+24) 

1323 

2026 

50 

25262 

3 

(+25) 

1324 

2027 

30001 

105026 

3 

(+26) 

1325 

2313 

46150 

65051 

14 

(+27) 

1326 

2024 

50 

25262 

3 

(+30) 

1327 

2025 

30001 

101030 

3 

(+31) 

1330 

2314 

46150 

65045 

14 

(+32) 

1331 

2022 

50 

25262 

3 

(+33) 

1332 

2023 

30001 

103034 

3 

P0PM20 

1333 

2316 

30150 

3033 

3 

( + 1) 

1334 

2315 

46150 

65040 

14 

(+2) 

1335 

2020 

50 

25262 

3 

(+3) 
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EDALU. 

, dll s 



13 

-Mar-80 

1336 

2021 

30001 

137036 

3 

(+4) 

1337 

2317 

46150 

65034 

14 

(+5) 

1340 

2016 

50 

25262 

3 

(+6) 

1341 

2017 

30001 

133040 

3 

(+7) 

1342 

2320 

46150 

65031 

14 

( + 10) 

1343 

2014 

50 

25262 

3 

( + 11) 

1344 

2016 

30001 

127043 

3 

(+12) 

1345 

2321 

46150 

65025 

14 

( + 13) 

1346 

2012 

50 

25262 

3 

(+14) 

1347 

2013 

30001 

123044 

3 

(+15) 

1350 

2322 

46150 

65020 

14 

( + 16) 

1351 

2010 

50 

25262 

3 

( + 17) 

1352 

2011 

30001 

117046 

3 

(+20) 

1353 

2323 

46150 

65015 

14 

(+21) 

1354 

2006 

50 

25262 

3 

(+22) 

1355 

2007 

30001 

113050 

3 

(+23) 

1356 

2324 

46150 

65010 

14 

(+24) 

1357 

2004 

50 

25262 

3 

(+25) 

1360 

2005 

30001 

107053 

3 

(+26) 

1361 

2325 

46150 

65001 

1.4 

(+27) 

1362 

2000 

50 

25262 

3 

(+30) 

1363 

2001 

30001 

103057 

3 

(+31) 

1364 

2327 

46150 

65004 

14 

(+32) 

1365 

2002 

50 

25262 

3 

(+33) 

1366 

2003 

45 

7054 

3 

(+34) 

1367 

2326 

50 

25010 

1 

(+35) 

1370 

1504 

30001 

101127 

1 

POP3 

1371 

1553 

30150 

3124 

1 

( + 1) 

1372 

1552 

42150 

47004 

15 

(+2) 

1373 

1502 

50 

25323 

1 

(+3) 

1374 

1503 

30001 

107013 

1 

(+4) 

1375 

1505 

42150 

47001 

15 

(+5) 

1376 

1500 

50 

25323 

1 

(+6) 

1377 

1501 

30001 

115015 

1 

(+7) 

1400 

1506 

42150 

47175 

14 

( + 10) 

1401 

1476 

50 

25323 

1 

(+11) 

1402 

1477 

30001 

123016 

1 

( + 12) 

1403 

1507 

42150 

47170 

14 

( + 13) 

1404 

1474 

50 

25323 

1 

( + 14) 

1405 

1475 

30001 

131020 

1 

( + 15) 

1406 

1510 

42150 

47164 

14 

( + 16) 

1407 

1472 

50 

25323 

1 

(+17) 

1410 

1473 

30001 

137023 

1 

(+20) 

1411 

1511 

42150 

47161 

14 

(+21) 

1412 

1470 

50 

25323 

1 

(+22) 

1413 

1471 

30001 

105024 

1 

(+23) 

1414 

1512 

42150 

47154 

14 

(+24) 

1415 

1466 

50 

25323 

1 

(+25) 

1416 

1467 

30001 

113026 

1 

(+26) 

1417 

1513 

42150 

47151 

14 

(+27) 

1420 

1464 

50 

25323 

1 

(+30) 

1421 

1465 

30001 

121030 

1 

(+31) 

1422 

1514 

42150 

47145 

14 

(+32) 

1423 

1462 

50 

25323 

1 

(+33) 

1424 

1463 

30001 

127033 

1- 

(+34) 

1425 

1515 

42150 

47140 

14 

(+35) 

1426 

1460 

50 

25323 

1 

(+36) 

1427 

1461 

30001 

135035 

1 

(+37) 

1430 

1516 

42150 

47134 

14 

(+40) 

1431 

1456 

50 

25323 

1 

(+41) 

1432 

1457 

30001 

103036 

1 

(+42) 

1433 

1517 

42150 

47131 

14 

(+43) 

1434 

1454 

50 

25323 

1 

(+44) 

1435 

1455 

30001 

111041 

1 

(+45) 

1436 

1520 

42150 

47125 

14 

(+46) 

1437 

1452 

50 

25323 

1 

(+47) 

1440 

1453 

30001 

117042 

1 

(+50) 

1441 

1521 

42150 

47120 

14 

(+51) 

1442 

1450 

50 

25323 

1 

(+52) 

1443 

1451 

30001 

125045 

1 

(+53) 

1444 

1522 

42150 

4 7-115 

14 - 

(+54) 

1445 

1446 

50 

25323 

1 

(+55) 

1446 

1447 

30001 

133047 

1 

(+56) 

1447 

1523 

42150 

47110 

14 

(+57) 

1450 

1444 

50 

25323 

1 

(+60) 

1451 

1445 

30001 

101051 

1 

(+61) 
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1452 

1524 

42150 

47104 

14 

(+62) 

1453 

1442 

50 

25323 

1 

(+63) 

1454 

1443 

30001 

101054 

1 

P0PM3 

1455 

1526 

30150 

3052 

1 

( + 1) 

1456 

1525 

46150 

47100 

14 

(+2) 

1457 

1440 

50 

25323 

1 

(+3) 

1460 

1441 

30001 

133056 

1 

(+4) 

1461 

1527 

46150 

47075 

14 

(+5) 

1462 

1436 

50 

25323 

1 

(+6) 

1463 

1437 

30001 

125061 

1 

( + 7) 

1464 

1530 

46150 

47070 

14 

(+10) 

1465 

1434 

50 

25323 

1 

(+11) 

1466 

1435 

30001 

117063 

1 

. ( + 12) 

1467 

1531 

46150 

47064 

14 

(+13)' 

1470 

1432 

50 

25323 

1 

(+14) 

1471 

1433 

30001 

111065 

1 

(+16) 

1472 

1532 

46150 

47061 

14 

( + 16) 

1473 

1430 

50 

25323 

1 

( + 17) 

1474 

1431 

30001 

103066 

1 

(+20) 

1475 

1533 

46150 

47054 

14 

(+21) 

1476 

1426 

50 

25323 

1 

(+22) 

1477 

1427 

30001 

135071 

1 

(+23) 

1500 

1534 

46150 

47051 

14 

(+24) 

1501 

1424 

' 50 

25323 

1 

(+25) 

1502 

1425 

30001 

127072 

1 

(+26) 

1503 

1535 

46150 

47045 

14 

(+27) 

1504 

1422 

50 

25323 

1 

(+30) 

1505 

1423 

30001 

121074 

1 

(+31) 

1506 

1536 

46150 

47040 

14 

(+32) 

1507 

1420 

50 

25323 

1 

(+33) 

1510 

1421 

30001 

113076 

1 

(+34) 

1511 

1537 

46150 

47034 

14 

(+35) 

1512 

1416 

50 

25323 

1 

(+36) 

1513 

1417 

30001 

105101 

1 

(+37) 

1514 

1540 

46150 

47031 

14 

(+40) 

1515 

1414 

50 

25323 

1 

(+41) 

1516 

1415 

30001 

137103 

1 

(+42) 

1517 

1541 

46150 

47025 

14 

(+43) 

1520 

1412 

50 

25323 

1 

(+44) 

1521 

1413 

30001 

131105 

1 

(+45) 

1522 

1542 

46150 

47020 

14 

(+46) 

1523 

1410 

50 

25323 

1 

(+47) 

1524 

1411 

30001 

123106 

1 

(+50) 

1525 

1543 

46150 

47015 

14 

(+51) 

1526 

1406 

50 

25323 

1 

(+52) 

1527 

1407 

30001 

115111 

1 

(+53) 

1530 

1544 

46150 

47010 

14 

(+54) 

1531 

1404 

50 

25323 

l 

(+55) 

1532 

1405 

30001 

107112 

1 

(+56) 

1533 

1545 

46150 

47001 

14 

(+57) 

1534 

1400 

50 

25323 

1 

(+60) 

1535 

1401 

30001 

101117 

1 

(+61) 

1536 

1547 

46150 

47004 

14 

(+62) 

1537 

1402 

50 

25323 

1 

(+63) 

1540 

1403 

30147 

21114 

15 

(+64) 

1541 

1546 

50 

25401 

0 

(+65) 

1542 

4 

30450 

25013 

0 

C0MPARE0 

1543 

5 

50 

24004 

0 

( + 1) 

1544 

b 3 

50 

25005 

0 

FAIL 

1545 

2 

50 

25401 

0 

SUCCESS 

1546 

636 

45 

1072 

2 

COMPARE 1 

1547 

635 

50 

25011 

0 

( + 1) 

1550 

1153 

45 

1JL31 

1 

C0MPARE2 

1551 

1154 

50 

25011 

0 

(+1) 

1552 

1551 

45 

1120 

1 

C0MPARE3 

1553 

1550 

50 

25011 

0 

( + 1) 

1554 

2331 

45 

1061 

3 

C0MPARE4 

1555 

2330 

50 

25011 

0 

( + D 

1556 

2715 

45 

1031 

3 

COMPARES 

1557 

2714 

50 

25011 

0 

( + 1) 


Page 0: 4 locations used, 374 free 
Page 400: 341 locations used, 37 free 
Page 1000: 155 locations used, 223 free 
Page 1400: 154 locations used, 224 free 
Page 2000: 337 locations used, 41 free 
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Page 2400: 323 locations used, 55 free 


0 


so 

1 


SI 

2 


RT 

3 


OLOAPC 

4 

1 

REVISION 

5 


MC0UNT 

6 

11 

RUN-TIME 

7 

0 

PASSCOUNT 

10 

1000 

MAXPASS 

11 


RLC0 


Time: 24 seconds; 0 error(s). 0 warning(s), 11798 words free 
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EDALULog.MIDAS : Logger for EDALU program 

By: J. Kellman Dec. 10 1979 


start L X AppendOutput EDALU.report; 

L X WriteMessage -.********** START EDALU Test : 
L X WriteDT; 

L X WriteMessage *«■«■*****•******.. ; 

L X Skip .continue; 


.breakpoint L X AppendOutput EDALU.report; 

L A18 SkipNE BADNOTIFY; 

L X Skip .badnotify; 

L A18 SkipNE BADWAKE+2; 

L X Skip .badwake; 

L A18 SkipNE TFILLRER; 

L X Skip .tfillrer; 

L A18 SkipNE TCHKRERO; 

L X Skip .tchkrerO; 

L A18 SkipNE TCHKRER1; 

L X Skip .tchkrerl; 

L A18 SkipNE TCHKRER2; 

L X Skip .tchkrer2; 

L A18 SkipNE ACHKRER; 

L X Skip .achkrer; 

L A18 SkipNE FAIL; 

L X Skip .fail; 

L A18 SkipNE PASSED-EDALU-TEST; 

L X Skip .passtest; 

. notmybreak L X AppendOutput EDALU.report; 

L X WriteMessage *** FAILed: Not at my breakpoint -; 

L X WriteMessage ' Parity * ; 

R AO Val; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ' CIA = ; 

R A18 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CTASK = ; 

R A19 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' APCTASK = ; 

R A17 Val; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ’ APC = ; 

R A16 Val ; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ’ TPC = ; 

R A13 Val; 

L X WriteMessage: 

L X WriteMessage ~; 

L X CloseOutput; 

L X Exit; 


badnotify L X WriteMessage *** FAILed: at my Breakpoint Bad NOTIFY 
bad L X WriteMessage ' MCOUNT = 

R B8 Val; 

I. X WriteMessage: 

! x WriteMessage -: 
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L X WriteMessage 'TO* : 

R 815 Val; 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ’ SO = 

R 816 Val ; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ' SI = 

R B17 Val; 

L X WriteMessage; 

L X WriteMessage -; 

L X Skip .continue; 

.badwake l X WriteMessage •** FAILed: at my Breakpoint BAD WAKE -; 

L X BackSkip .bad; 

.tfillrer L X WriteMessage *** FAILed: at my Breakpoint T FILL R ERror ~; 

L X BackSkip .bad; 

.tchkrerO L X WriteMessage *** FAILed: at my Breakpoint T CHECK R ERrorO 
L X BackSkip .bad; 

.tchkrerl L X WriteMessage *** FAILed: at my Breakpoint T CHECK R ERrorl 
L X BackSkip .bad; 

.tchkrer2 L X WriteMessage *** FAILed: at my Breakpoint T CHECK R ERror2 -; 

L X BackSkip .bad; 

.achkrer L X WriteMessage *** FAILed: at my Breakpoint Addr CHecK R ERror ~; 
L X BackSkip .bad; 

.fail L X WriteMessage *** FAILed: at my Breakpoint compare FAIL-; 

L X BackSkip .bad; 


. passtest L X WriteMessage - PASSed EDALU Test 

L X WriteDT; 

L X WriteMessage - : 

L X Skip .continue; 

.continue L X WriteMessage 
L X CloseOutput; 

L X DisplayOn; 

L X Confirm; 

L X TimeOut 10000000; 

L X Continue; 

L X Skip 2; 

L X ShowError Program failed to CONTINUE.; 

L X BackSkip .notmybreak; 

L X DisplayOff; 

L X BackSkip .breakpoint; 
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l A19 Val 0 
L X Confirm 
L X Load EDALU 
L BO Addr REVISION 
L B1 Addr RUN-TIME 
L B2 Addr PASSCOUNT; 

L B3 Addr MAXPASS; 

L B8 Addr MCOUNT 
L B15 Addr T 0 
L B16 Addr SO 
L B17 Addr SI 
L X DisplayOn; 

L X TimeOut 10000 
L X SS GO 
L X Skip 1 

L X ShowError Single-step at GO hung 



*** *** ... *** <D0Diag>Rev-l>ED8itBU.mc 


Revision 1 Dec. 6, 1979 


*** *«* *«* *** 


EDBitBlt.mc : Bit Boundary Block Transfer microcode 

Purpose : This test moves information from one region of main storage to another, 
modifying the information at the destination as the transfer is done. 
Hardware Configuration : Standard 4 CPU boards. 


Written by 
Modified by 

Modified by 

Modified by 

Modified by 


Tom Horsley, Nov. 15, 1977 
Bill Kennedy, Mar. 10, 1978 
Took code off of Page 0. 

Bill Kennedy, Apr. 7, 1978 
Added MPanel use. 

Chuck Thacker, Aug. 22. 1978 
Looped on errors. 

Camellia Chan. Oct. 30, 1979 

Standardize title page, code format and labels, modified looping. 


as the simulators 
1 
2 

3 

4 


•SubTest Description: 

* SubTest 1: the number of times the hardware goes around the loop to complete an Item 
(LoopCount) Is compared with the simulators loop count (simLoopCount). 
confirms that the reason the hardware exited the loop (Result) is the same 
(simResult). The reasons are encoded as follows: 

■ item done 

= fill source and destination 
= fill source 
* fill destination 

confirm that the first word of the hardware destination quadword (DestO) 
matches the simulated equivalent (simDestO). 

confirm that the second word of the hardware destination quadword (Destl) 
matches the simulated equivalent (simDestl). 

confirm that the third word of the hardware destination quadword (Dest2) 
matches the simulated equivalent (simDest2). 

confirm that the fourth word of the hardware destination quadword (Dest3) 
matches the simulated equivalent (simDest3). 

confirm that the hardware register MNBR contains the expected value (simNBR; 
confirm that the hardware register SB contains the expected value (simSB). 
confirm that the hardware register DB contains the expected value (simDB). 


SubTest 2: 


SubTest 3 


SubTest 4 


SubTest 5 


* SubTest 6: 


SubTest 

SubTest 

SubTest 


7 

10 

11 


* * * »■ 

nts 


: Si i*t * sk * * 

; reakPo i 
Errorl 
E rror2 
E rror3 

E r r o r 4 : 

F. r ror'5 : 

r r r o r 6 : 

r •' r- r 7 : 
r r z r 10 : 
r :■ r 11 ; 

rassed-EDB 






********************* 




hardware loop count does not equal to simulator's loop count, 
reason for hardware existed the loop is not the same as the simulator, 
the first word of the hardware destination quadword (DestO) does not match 
the simulated equivalent (simDestO). 

the second word of the hardware destination quadword (Destl) does not match 
the simulated equivalent (simDestl). 

the third word of the hardware destination quadword (Dest2) does not match 
the simulated equivalent (simDest2). 

the fourth word of the hardware destination quadword (Dest3) does not match 
the simulated equivalent (simDest3). 

the hardware register MNBR does not contain the expected value (simNBR). 
the hardware register SB does not contain the expected value (simSB). 
the hardware register DB does not contain the expected value ,simDB). 
ltBlt-Test: Passed all tests, and all passes. 







I . r-ic 


15:-: 


Fage 


* ShortLoop Logic Analyzer Sync Points at Control Store address: 

* Errorl: Control Store address 600 at Repeat. 

* Error2: Control Store address 600 at Repeat. 

* Error3: Control Store address 600 at Repeat. 

* Error4: Control Store address 600 at Repeat. 

* Errors-. Control Store address 600 at Repeat. 

* Error6: Control Store address 600 at Repeat. 

* Error7: Control Store address 600 at Repeat. 

* ErrorlO: Control Store address 600 at Repeat. 

* Errorll: Control Store address 600 at Repeat. 


•Subroutine Description: 

• BitBlt: invoke hardware bitblt. 

• SimBitBlt: simulate a bitblt given simDB, simSB, simNBR, simOP, simMaskFillSrc, 

simBBFl. 


•Special Reg. Definition: 

• LoopOn: At any breakpoint, the user has the choice of setting LoopOn to 1, 2, 3, 4, 5, 6, 

7, 10, or 11 to loop from SubtestO to that subtest repeatedly for trouble shooting, 

0. no looping on any subtest. 

N, loop on subtest N, for N=1,2,3,4,5,6,7 ,10 .11. 

* XA and XB: The two random numbers held in these registers XA and XB are used to choose 

the bitblt starting values as follows: 


SB - XA[0, 6] 

DB - XA[6. 6] 

MaskDestination - XB[0, 1] 

Mask and Fill Source - XB[1. 1] 

SALUF function - XB[2. 6] 

MNBR - -(XB[ 10 . 

SrcO - XA 

Src1 - XB 

Src2 - NOT XA 

Src3 - NOT XB 

DestO *- XB 

Destl - XA 

Dest2 - 0 

Dest3 - 177777 


7] * 1) 


Note that the random number generator has been constructed so that it produces each 
number in the range [0. 64K) once and only once before repeating any number. Thus it 
is guaranteed to exhaust all possible combinations of the fields derived from it each 
time the inner loop is exhausted. 

inerLoopCounter: 16 bits inner loop counter 


i s ? C o u n t 


Outer loop pass counter, 
incremented each time when !nn 


:cpCoun ter 


‘acneci the . in 


. P a s s 


njnber 


times outer 


loop 

i! * * S : 


is to 


■peat before breakpointing. 
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♦INITIALIZATION: 

BUILTIN[INSERT,24]; 

INSERT[d01ang]; 

TITLE[ED81tBlt]; • Bitbit test program, ED revision 

SET[BB0, 1200]; * base for B8FB dispatch 

SET[BB1, 1300]; * base for BBFBX dispatch 

SET[MainPage, 1]; * tag for Main Program page number 
SET[SubPagel, 2]; * tag for Subroutine page number *» 

********* Macro constants: ***•***•• 

MC[finSource, 3]; * bitblt dispatch type indicating source ran out 

MC[fil1Dest, 4]; * bitblt dispatch type indicating destination ran out 

MC[fill8oth, 2]; * bitblt dispatch type indicating both source and destination ran out 

MC[itemDone, 1]; * bitblt dispatch type indicating item done 

********* R-registers: ****•••*• 


RV[CA,1]; 

RV[XA,2]; 

RV[CB,3]; 

RV[XB, 4]; 

RV[InnerLoopCounter,5,0] 
RV[PassCount,6]; 

RV[MaxPass,7,2]; 
RV[LoopOn,13,0]; 
RV[SubTest,14]; 


* used in random number generation, A*XA + CA 

* random number generated via A*XA + CA 

* used in the random number calculation (a*XB + CB) 

* second random number 

* 16 bits inner loop counter 

* Outer loop pass counter Incremented each time when InnerLoopCounter 
* reached the limit 

* number of times outer loop is to repeat before breakpointing 

* loop on subtest 

* current location of test 


RV[allOnes,15]; * 

RV[Dest0,20]; * 

RV[Destl,21]; 

RV[Dest2,22]; 

RV[Dest3,23]; 

RV[destBitsToGo,24]; * 

RV[destFieldDescriptor,25]; 
RV[destMask,26]; * 

RV[destStart,27]; * 

RV[des tWord,30]; * 

RV[LoopCount,31]; * 

RV[MaskDest,32]; * 

RV[nbitS,33]; * 

RV[Result,34]; * 

RV[simOB,35]; • 

RV[simDestO,40] 
RV[sim0esti,41]; 

RV[simDest2,42]; 

RV[simDest3,43] ; 
RV[simLoopCount,44]; ' 

RV[.s imMaskF illSrc ,45] ; * 

RV[simNBR,46]; “ 

RV[simOp,47]; * 

RV[sImResult,52]; 1 

RV[simSB,53]; * 

RV[Src0,54]; 

RV[Src1,55]; 

RV[Src2,56]; 

RV[Src3,57]; 

RV[srcBitsToGo,60]; 

RV[srcFieldDescriptor,61] 
RV[srcStart.62]; 

RV[srcWord,63]; 

RV[.Tmp, 64]; 

RV[tmpWord,65]; 

RV[Revis ion,66,1]; 

RV[Run-Time,67,14]; 


holds 177777 during mask creations 
hardware bitblt destination quadword 


number of bits between current DB and next word boundary 
* describes the destination bit field 

mask used to set background in source field and/or clear destination field 

lower 4 bits of DB (word offset) 

working register for current destination word 

number of times through loop of hardware bitblt 

flag indicating whether to clear the destination field or leave it 

distance to next word boundary or the end of the item 

indicates which dispatch was taken out of hardware bitblt 

* (see fillSource etc. below) 

simulated bitbit's DB 

simulated bitblt destination quadword 


simulated bitblt loop count 

flag indicating whether background of source field should be 0 or 1 
simulated bitblt MNBR 
simulated bitblt SALUF operator 

indicates which dispatch was indicated by simulated bitblt 

* (see fillSource etc. below) 

simulated bitblt SB 

source quadword for both bitbTt~ , s 


number of bits, between current SB and next word boundary 

* describes the source bit field 

lower 4 bits of SB (word offset) 

working register for current source word 

temporary register 

temporary register 

REVISION 1 

Run-Time is 14b or 12 seconds 
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*** MAIN routine: 

ONPAGE[MainPage]; 
go: 

start: PassCount «■ 0C; 

CLEARMPANEL; 

•Randomlnlt (Initialize random generator registers: XA «- 123, CA «- 33031) 

XA AND9[0377, 123]C; *Loadl 6 Bits (XA 123) 

XA (XA) OR (ANOQ[177400, 123]C); 

CA - AND9[0377, 33031]C; *Loadl6B1ts (CA - 33031) 

CA «■ (CA) OR (AND9[177400, 33031]C); 

*RandomInit (Initialize random generator registers: XB 012300, CB «• 33037) 

XB 4 - AND9[0377, 012300JC; *Loadl 6 Bits (XB «* 012300) 

XB 4- (XB) OR ,(AN09[ 177400, 012300]C); 

CB 4 - ANO9[0377, 33037]C; *Loadl6B1tS (CB 4 - 33037) 

CB 4- (CB) OR (AND9[177400, 33037]C); 

bigLoop: INCMPANEL; 

t 4 - PassCount «- (PassCount) + 1; 

LU ♦- (MaxPass) - (t) ; * check for maximum pass counter reached 

G0T0[ThenlA, ALU >« 0]; 

Passed-EDBitBlt-Test: BREAKPOINT, goto[go]; 

ThenlA: XB 4 - (XB) + 1; 

mainloop: InnerLoopCounter «■ (InnerLoopCounter) + 1; 

GOTO[bigLoop, CARRY]; 

* Random (4005*XA + CA mod 2**16) 

t ♦- XA; 

t 4- (LS11[XA, 2]) + t; 
t 4 - (LSH[XA, 13]) + t; 
t 4 - (CA) + t; 

XA 4- t; 

* Random (4005*XB + CB mod 2**16) 

t - XB; 

t 4- (LSH[XB, 2]) + t; 
t 4 - (LSH[XB, 13]) + t; 
t ♦- (CB) + t; 

XB 4 . t; 

• SUBTEST 0: 

Repeat: Subtest «- OC; 

4 TASK; * allow mouse halt 

* load source and destination registers 

t 4 . XA; 
srcO 4 - t; 

src2 4 “ (ZERO) OR NOT (t); 
destl 4 - t; 
simDestl *• t; 
t XB; 
srcl 4 - t; 

src3 4 - (ZERO) OR NOT (t); 

destO 4 - t; 

simDestO t; 

dest2 ♦* OC; 

simDest2 4 - OC; 

dest3 4 - (ZERO) - 1; 

simOest3 «- (ZERO) - 1; 
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* load OB and SB 

t <- LDF[XA, 6, 6]; 
slmDB «• t; 

DB <- (slmDB); 
t «- LDF[XA, 0, 6]; 
simSB «- t; 

SB «- (simSB); 

* load MNBR 

t «• (LDF[XB, 10. 7]) + 1; 
simNBR ♦- (ZERO) - t; 

MNBR (simNBR);. 

* load SALUF and related bits 

t «• LDF[XB, 0, 10]; 

SALUF «• t; 
t «- LDF[XB, 2, 6]; 
slmOP «* t; 
t «■ LDF[XB, 0, 1]; 
simMaskFIHSrc t; 
t <- LDF[XB, 1, 1]; 

MaskDest «* t; 

* do It 

LOADPAGE[SubPagel]; 

CALLP[Sim8itblt]; 

LOADPAGE[SubPagel]; 

CALLP[B1tblt]; 

Compareflesult: 

SUBTEST1: subTest «■ 1C; 

t «- subTest; 
lu *■ (LoopOn)-(t); 

goto[.+2,ALU it 0]; * check for looping on this subtest 

goto[Repeat]; 

t «• simLoopCount; * hardware loop count is the same as simulator’s loop count? 

LU *• (LoopCount) - (t); 

GOTO[SUBTEST2. ALU = 0]; 

Errorl: BREAKPOINT,goto[Repeat]; 

SUBTEST2: subTest «- 2C; 

t subTest; 

lu <- (LoopOn)-(t); 

goto[.+2,ALU it 0]; * check for looping on this subtest 

goto[Repeat]; 

t +■ slmResult; * reason for hardware existed the loop is the same as simulator? 

LU «■ (Result) - (t); 

G0T0[SUBTEST3, ALU * 0]; 

Error2: BREAKPOINT,goto[Repeat]; 

SUBTEST3: subTest «• 3C; 

t *■ subTest; 

lu *■ (LoopOn)-(t); 

goto[.+2,ALU it 0]; * check for looping on this subtest 

goto[Repeat]; 

t ♦* simDestO; * 1st word of the hardware dest. quadword matches the 

* simulated equivilent? 

LU - (DestO) - (t); 

GOTO[SUBTEST4, ALU * 0]; 

Error3: BREAKPOINT,goto[Repeat]; 

SUBTEST4: subTest 4C; 

t *• subTest; 

lu *■ (LoopOn)-(t); 

goto[.+2,ALU it 0]; * check for looping on this subtest 

goto[Repeat]; 

.t «- simDestl; * 2nd word of the hardware dest. quadword matches the 

* simulated equivilent? 

LU «• (Destl) - (t); 

G0T0[SUBTEST5, ALU = 0]; 

Error4: BREAKPOINT ,goto[Repeat]; 

SUBTEST5: subTest 5C; 

t <• subTest; 

lu «- (LoopOn)-(t); 
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goto[.+2,ALU # 0]; * check for looping on this subtest 

goto[Repeat]; 

t <- simDest2; * 3rd word of the hardware dest. quadword matches the 

* simulated equivllent? 

LU «• (Dest2) - (t); 

GOTO[SUBTEST6, ALU - 0]; 

BREAKPOINT,goto[Repeat]; 

subTest 6C; 
t <- subTest; 
lu (LoopOn)-(t); 

goto[.+2,ALU tt 0]; * check for looping on this subtest 

goto[Repeat]: 

t «• s1mDest3; * 4th word of the hardware dest. quadword matches the 

* simulated equ1v11ent7 

LU 4- (Dest3) - (t); 

GOTO[SUBTEST7, ALU * 0]; 

BREAKPOINT,goto[Repeat]; 

subTest «• 7C; 

t ♦* subTest; 

lu *- (LoopOn)-(t); 

goto[.+2,ALU tt 0]; .* chejck for looping on this subtest 

goto[Repeat]; 

t ♦* MNBR; * the hardware register MNBR contains the 

* expected value (simNBR)? 

LU «- (simNBR) - (t); 

GOTO[SUBTEST 10, ALU = 0]; 

BREAKPOINT,goto[Repeat]; 

subTest «■ 10C; 

t <- subTest; 

lu «- (LoopOn)-(t); 

goto[.+2,ALU it 0]; * check for looping on this subtest 

goto[Repeat]; 

t «- DBSB; * the hardware register SB contains the 

* expected value (simSB)? 

Tmp «- t; 

t *- LDF[Tmp, 12. 0]; 

LU «- (simSB) - (t); 

GOTO[SUBTEST11, ALU = 0]; 

BREAKPOINT,goto[Repeat]; 

subTest *• 11C; 
t *- subTest; 
lu (LoopOn)-(t); 

goto[.+2,ALU it 0]; * check for looping on this subtest 

goto[Repeat]; 

t ♦* DBSB; * the hardware register DB contains the 

* expected value (simOB)? 

Tmp «* t; 

t «- LDF[Tmp, 4. 6]; 

LU «- (simOB) - (t); 

GOTO[TheEnd, ALU * 0]; 

BREAKPOINT.goto[Repeat]; 

LOADPAGE[MainPage]; 

GOTOP[mainloop]; 
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******** 41 «**********«***********:«**************»«*******«:»********«*****««****i 

•SUBROUTINE 
ONPAGE[SubPagel]; 

*••*****<.* SUBROUTINE: Bitblt •••••••••• 

* 

• invoke harware bitblt 

Bitblt: LoopCount «- OC; 

GOTO[maskTheDestination, MB]; 

dontMaskDestlnation: 

BBFB; * Initialize internal bitblt registers 

BBLoopO: LoopCount ♦- (LoopCount) + 1, AT[BB0, 07]; 

t «- BBFA[SB[srcO]] OR (t); 

DB[destO] <- (B8FBX[DB[dest0]]) SALUFOP (t), DISP[BBLoopO]; 
BBFillSourceO: Result *■ fill.Source, RETURN, AT[BB0, 05]; 

BBF il IDestO : Result «■ flllDest, RETURN, AT[BB0 , 06]; 

BBF i HBothO : Result «■ fillBoth, RETURN, AT[BB0 , 04]; 

BBItemDoneO: Result ♦* ItemDone, RETURN, AT[BB0, 03]; 

maskTheDestlnation: 

BBFB; • initialize internal bitblt registers 

BBLoopl: LoopCount «- (LoopCount) + 1, AT[BB1, 07]; 

t - BBFA[SB[src0]] OR (t); 

DB[dest0] *- (BBFB[D8[destO]]) SALUFOP (t), DISP[BBLoopl]; 

BBFi1ISourcel: Result «■ fillSource, RETURN, AT[BB1, 05]; 

BBF il IDestl: Result «• flllDest, RETURN, AT[BB1, 06]; 

BBF i 11 Bothl: Result *• fillBoth. RETURN, AT[BB1, 04]; 

Result *• itemDone, RETURN, AT[BB1, 03]; 

RETURN; 


B8ItemDonel: 
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**•****„• SUBROUTINE: SlmBItblt *•*****••• 

* 

* simulate a bitblit given simOB, simSB, slmNBR, slmOp, slmMaskFIllSrc, slmBBFl 

SimBitblt: simLoopCount «• OC; 

SimBltStart: simLoopCount «■ (simLoopCount) + 1; 

* get correct source word, based on simSB 

t «■ LDF[simSB, 12. 2]; 
tmpWord *■ t; 

LU *• (tmpWord); 

GOTO[TrySrcl, ALU #0]; * go to TrySrcl if the correct source word Is not SrcO 
t <- (SrcO); ' * Copy (srcWord «- SrcO) 

srcWord *■ t; 

GOTO[CalSrcB1t]; 

TrySrcl: LU *■ (tmpWord) - (1C); 

GOTO[TrySrc2, ALU # 0]; * go to TrySrc2 if the correct source word is not Srcl 
t (Srcl); * Copy (srcWord *■ Srcl) 

srcWord «■ t; 

GOTO[CalSrcB1t]; 

TrySrc2: LU ♦* (tmpWord) - (2C); 

GOTO[IsSrc3, ALU # 0]; * go to IsSrc3 If the correct source word Is not Src2 
t (Src2); * Copy (srcWord *- Src2) 

srcWord «- t; 

G0T0[CalSrcBit]; 

IsSrc3: t «- (Src3); * Copy (srcWord *• Src3) 

srcWord «- t; 

* calculate actual source bit related values 

CalSrcBIt: t «- LDF[simSB, 14. 4]; 

srcStart «- t; * 

srcBitsToGo «- (ZERO) - t; 
srcBitsToGo «- (srcBitsToGo) + (20C); 

* get correct destination word, based on simOB 

t - LDF[simDB, 12, 2]; 
tmpWord «- t; 

LU *■ (tmpWord); 

GOTO[TryOestl. ALU # 0]; * go to TryDestl if the correct destination word is 

* not simDestO 

t «- (simOestO); * Copy (destWord ♦* simDestO) 

destWord *■ t; 

GOTO[CalDstB1t]; 

TryDestl: LU (tmpWord) - (1C); 

G0T0[TryDest2, ALU # 0]; * go to TryDest2 if the correct destination word is 

* not simDestl 

t (simDestl); * Copy (destWord ♦* simDestl) 

destWord «■ t; 

GOTO[CalDstB1t]; 

TryDest2: LU *■ (tmpWord) - (2C); 

G0T0[IsDest3, ALU # 0]; * go to IsDest3 if the correct destination word is 

* not simDest2 

t «- (simDest2); * Copy (destWord *■ simDest2) 

destWord *• t; 

GOTO[CalDstBit]; 

IsDest3: t «- (simQest3); * Copy (destWord *■ simDest3) 

destWord *■ t; 

* calculate actual destination bit related values 

CalDstBit: t «■ LDF[simDB, 14, 4]; 

destStart «• t; 
destBitsToGo *■ (ZERO) - t; 
destBitsToGo ♦- (destBitsToGo) + (20C); 

* calculate number of bits to next word boundary (or end) 

t «- destBitsToGo; 

LU *■ (srcBitsToGo) - (t); 

G0T0[GetSrcB1t, ALU < 0]; * go to GetSrcBit if srcBitsToGo is less than 

* destBitsToGo 
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t «- (destBItsToGo); * Copy (nblts destBitsToGo) 

nbits t; 

GOTO[ThenNBR]; 

GetSrcBit: t *■ (srcBItsToGO); * Copy (nblts «- srcBitsToGo) , 

nbits *■ t; 

ThenNBR: t «■ nblts; 

LU <- (simNBR) + (t); 

G0T0[SrcF1eld, ALU < 0]; 

t «- (simNBR); * Copy-(nb1ts -simNBR) 

nbits ♦- (ZERO) - t; 

* create source field descriptor 

SrcField: t <* LSH[srcStart, 4]; 

srcFieldDescriptor «• t; 
t «• (nbits) - 1; 

srcFieldDescriptor «• (srcFieldDescriptor) OR t; 

* load the source field 

CYCLECONTROL ^-srcFieldDescriptor; 

t <- RF[srcWord]; 

srcWord *• t; - 

* create destination field descriptor 

t «- LSH[destStart, 4]; 
destFieldDescriptor «■ t; 
t «- (nbits) - 1; 

destFieldDescriptor «• (destFieldDescriptor) OR t; 

* set up mask 

allOnes <-(ZERO) - 1; 
destMask 0C; 

CYCLECONTROL <-destF1eldDescrlptor; 
t <- WFA[allOnes]; 

destMask *• WFB[(destMask) OR (t)]; 

* align source with destination 

tmpWord «- 0C; 

CYCLECONTROL «-destFieldDescrlptor; 

t <- WFA[srcWord]; 

tmpWord *- WF8[( tmpWord) OR (t)j; 

t *■ (tmpWord); * Copy (srcWord «- tmpWord) 

srcWord t; 

* set source background bits if required 

LU *• (simMaskFillSrc); 

GOTO[ClearDBit, ALU # 0]; * go to ClearDBIt if source background bits do not 

* need to be set 

t «- (destMask); * set source background bits 

srcWord *■ (srcWord) OR NOT t; 

* clear destination bits If required 

Cle.arDBit: LU f (MaskDest); 

GOTO[Perform, ALU * 0]; * go to Perform if destination bits do not need 

* to be cleared 

t «- (destMask); * clear destination bits 

destWord <- (destWord) AND NOT t; 

Perform: t (srcWord); ' * perforiffi"tbe operation 

destWord «• (destWord)'SALUFOP t; .. 

* stuff result into correct destination register 

t *• LDF[simDB, 12. 2]; - 

tmpWord t; 

LU (tmpWord); 

GOTO[TrySimDl, ALU # 0]; * go to TrySimDl if the correct dest. reg. is not 

* slmDestO 

t .«■ (destWord); * .Copy (slmDestO «- destWord) 

simDestO t; 

G0T0[IncB1tCnt]; 

TrySimDl: LU «- (tmpWord) - (1C); 

G0T0[TrySimD2, ALU # 0]; .- * go to TrySimD2 if the correct dest. reg. is not 

* simDestl 

t «- (destWord); * Copy (simDestl *• destWord) 
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T ryS1m02: 

IsSimD3: 

* 

IncBitCnt 


CheckSB: 

SrcOut: 
CheckOB: 

NotFinish 


simOestl «- t; 

G0T0[IncB1tCnt]; 

LU «■ (tmpWord) - (2C); 

GOTO[IsSimD3, ALU It 0]; * go to IsSimD3 if the correct dest. reg. is not simOest2 

t «• (destWord); * Copy (simDest2 «* destWord) 

simDest2 «* t; 

GOTO[IncBitCnt]; 

t *■ (destWord); * Copy (sim0est3 «- destWord) 

simDest3 «- t; 


increment various bit counters 
t «- (nbits); 
simSB «• (simSB) + t; 
simSB *• LDF[simSB, 12, 8]; 
simDB «- (simDB) + t; 
simDB «* LDF[simDB, 12, 6]; 
simNBR «■ (simNBR) + t; 


decide if finished or not 
LU «■ (simNBR); 

GOTOfCheckSB, ALU tt 0]; * go to CheckSB if simulated bitblt MNBR did not finish 
simResult «- 1C, RETURN; * item done, return to main program 


LU «■ (simSB); 

GOTOQCheckDB, ALU it 0]; * go to CheckDB if simulated bitblt SB did not finish 
LU <- (SimDB); 

GOTO[SrcOut, ALU #0]; * go to SrcOut if simulated bitblt DB did not finish 

simResult «- 2C, RETURN; * source and destination ran out, return to main program 


simResult *• 3C, RETURN; * source ran out, return to main program 


LU «■ (SimDB); 

GOTO[NotFin1sh, ALU # 0]; * go to NotFinish if simulated bitblt DB did not finish 

simResult «- 4C, RETURN; * destination ran out, return to main program 


GOTO[S1mBltStart]; * not finished 

RETURN; 


end; 


to end the MAIN routine 



Before BitBLT Loop: 

SBX a 7 




- ^ 


DBX 3 2 






MWX a 8 

Source: | 

f 1 l 

Mil 

a 

a 

o 

o 

o 

— fc 

I 0 , 1 

1 |° I 

Destination: | 

0 

1 i i 

Mil 

t 

SBX 

1 1 1 1 1 1 1 

15 

1 1 1 

0 

1 1 1 



0 

t 

DBX 


15 

After BitBLT Loop: 

SBX « 0 

DBX all 

Source: 

l_J 

IMI 

II II II 

i i i i i 1 r° i 


0 

1 ^ 


>1 

15 0/jv 

SBX 




> 1 



1 


Destination: 

Ll 

i 1 r 

o 

o 

o 

_L 

o 

—1 

II 1 II 


0 


* 

15 


DBX 


The BitBLT inner loop transfers as much of one word as possible between the source 
and destination buffers. This number is the minumum of (1) the number of bits required 
to reach the next source word boundary, (2) the number of bits required to reach 
the next destination word boundary, and (3) the number of bits remaining in the 
current item (-MNBR). This^quantity is calculated by PROMS from the registers SB, DB, 
and MNBR, and is loaded into the register MWX (precisely, MWX «- min(...) -1) when BBFB 
or BBFBX is executed. The BBFA function (FI = 0), left-cycles and masks the source data 
(from R) in the cycler masker. The cycle count is SBX - DBX, and the source mask extends 
from bits DBX to bit DBX + MWX. The diagram above illustrates the source and destination 
words and the values of SBX and DBX before and after a single iteration of the BitBLT loop. 
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ED Bit Bit 


BEGIN 


InnerLoopCounteraO 
Initialize program MaxPass>2 
______________ LoopOn a 0 


go: 

start: 


PassCount a 0 


CLRM 


XA a 123 

Initialize random generator CA a 33031 
registers XA.CA.XB and CB XB a 012300 
_ CB a 33037 


big Loop: 


INC M Display number of passes 


Increment the PassCount 


Thenl A: 

Increment XB by 1 <— 

main loop: 

_ ^ _ 

Increment Inner loop counter 

_i_ 

/ 16 bits inner loop counter \ 
\ limit reached? / 



00 / MaxPass \ yes 

\ reached? 


\ ves 

bigLoop N 

/ 

pageOI J 


CARRY a 1? 


Calculate pseudorandom XA = 4005*XA + CA mod 2**16 
number XA and XB XBa4005*XB + CBmod 2**16 


Passed-EDBitBIt-Test: 

-M"TreakpoTnt1 


Repeat: 


Subtest a o 


TASK allow mouse halt 


load source and 
destination registers, 

DB and SB, 

MNBR, SALUFand 
related bits 


simulate a bitblt 


SrcQ = dest1 asimDestl = X A 
Srcl = destO = simDestO = XB 
Src2 a not XA 
Src3 = not XB 
dest2asimDest2aO 
dest3 a simDest3 a 177777 

DB = simDB a X A[6,6] 

SB a simSB a XA[0,6] 

MNBR a simNBR a -(X8[10,7] ♦ 1) 

SALUF a XB[0,10] 
simOPa XB[2,6] 
simMaskFillSrc a XB[0,1] 
MaskDest = XB[1,1] 


CALLSimBitBIt 

page04 


Invoke hardware bitlalt 


CALL BitBIt 
page03 


Compare Result 
page02 
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CompareResulit: 
SUBTEST1: 

subTest a 1 


looping on 
this test? 


—' LoopOn a su btest? 


Repeat 

PageOI 


3rd word of the hardware 
destination quadword matches 
, the simulated equivalent? 


Error5: 

no .r 


SUBTE ST6:| ye » 

I subTest a 6 


Dest2 asimDest2? 


BREAKPOINT 

Repeat N. 
* PageOI / 


Errorl 


/ hardware loop count a \__no 
\ simulator’s loop count? / 


loopCount a 

SUBTEST2^ yea simLoopCount? 
subTest a ;T| 


looping on \ yes 
this test? j 

'- 1 -'LoopOn a su btest? 


BREAKPOINT 

Repeat 
PageOI / 


looping on \ yes 
this test? / 


LoopOn a subtest? 


4th word of the hardware 
destination quadword matches 
l the simulated equivalent? 


Error6: 


SUBTE ST7; j/* 8 

subTest = 7 


Dest3 a simDest3? 


BREAKPOINT 

Repeat 
PageOI / 


reason for hardware 
existed the loop is the 
same as the simulator? 


Error2: 


SUBTEST3y/*® 

subTest a 3 


Result = simResuit? 


looping on \ yes 
this test? / 


LoopOn a subtest? 


BREAKPOINT 

Repeat N. 
PageOI / 


looping on \ yes 
this test? / 


LoopOn a su btest? 


the hardware register MNBR 
contains the expected value 
. feimNBR)? 


Error7: 


SUBTES T 10; J, yes 

subTest = 10 


MNBR a simNBR? 


BREAKPOINT 

j Repeat 
PageOI / 


1st word of the hardware 
destination quadword matches 
the simulated equivalent? 


Error3: 

no v.r 


SUBTE ST4^ yes 

subTest a 4 


OestO a simOestO? 


looping on 
this test? 


—'LoopOn a subtest? 


BREAKPOINT 

Repeat \ 
* PageOI / 


looping on \ yes 
this test? / 


LoopOn a subtest? 


the hardware register SB ' 
contains the expected value 
i (slmSB)? j 


ErrorlO: 


S U BTES T 11 ;^ y9S 

subTest all 


DBSB[12,6] asImSB? 


BREAKPOINT! 

Repeat N, 
* PageOI / 


2nd word of the hardware 
destination quadword matches 
the simulated equivalent? 


Error4: 

no ^r 


SUBTEST5: 


Destl a simDestl? 


subTest a 


looping on 
this test? /. 


LoopOn a subtest? 


BREAKPOINT 

Repeat \ 
> PageOI / 


looping on 
this test? 


LoopOn a subtest? 


f the hardware register DB 
^contains the expected value 
\ (simDB)? 


Errorl 1: 


TheEnd: J ye8 


. DBSB[4,6] a simDB? 


mainloop 

PageOI 


BREAKPOINT 

Repeat \ 
PageOI / 
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Subroutine 


C BitBIt^ 


invoke hardware bitblt 


\ 

f 

initialize loopCount 

\ 

f 


MB = 0 


DontMaskDestination: 


destination bits 
need to be cleared? 


LoopCount >0 


yes MB * 1 


MaskTheDestination: 


BBLoopO: j 


initialize intern; 

il bitblt registers 

BBFB - 

initialize Internal 

bitblt registers 


BBLoopI: 


increment LoopCount I LoopCount a LoopCount ♦ 1, AT[BB0,07] 


BBFB 


Combine destination 
bit with source data 


DB[destO] a (8BFBX[0B[dest0]]) 
SALUFOP 

(BBFA[SB[srcO]]or(t)) 




Increment LoopCount 

\ 

f 

clear the destination l 

bits, then combine 
them with source data 

\ 

t 


OB[destO] = (BBFB[DB[destO]]) 
SALUFOP 

(BBFA[SB[srcO]]or(t)) 


dispatch based on 

BBFill SourceO: 

Result = f il ISource,RETURN, AT[BB0,05] 

BBFlIIDestO: 

dispatch based on 

the values of SB, 

Result = fillOest,RETURN,AT[BB0,06] 

the values of SB, 

DB, and MNBR 

BBFIllBothO: 

Result = fillBoth,RETURN,AT[BB0,04] 

DB, and MNBR 

l 

! 

BBItemDoneO: 

Result = itemDone, RETURN, AT[BB0,03] 

-- 

1- 




RETURN 


BBFill Sou reel: 

Result = MllSource, RETURN, AT[BB1,05] 
BBFillDestl: 

Result = fillDest,RETURN, AT[BB1,06] 
BBFMIBothl: 

Result = fillBoth,RETURN,AT[BB1,04] 
BBItemOonel: 

Result = itemDone,RETURN,AT[BB1,03] 




RETURN 
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Subroutine 
















PARITY 

0 

REVISION 

1 

CYCLECONTROL 

0 

RUN-TIME 

14 

PCXREG 

4 

PASSCOUNT 

0 

PCFREG 

4 

MAXPASS 

<7 

OBREG 

20 

SUBTEST 

0 

SBREG 

77 



MNBR 

3423 

DE3T0 

0 

*SSTKP 

377 

SIMDEST0 

0 

STKP 

0 

0EST1 

0 

:f 'ALURESULT 

1 

SIM0EST1 

0 

:+: SAL U F 

377 

DE3T2 

0 

T 20 

7000 

SIMDEST2 

0 

A A T U V A 

0 

DEST3 

0 

TPC 20 

/ / / 7 

SIM0EST3 

0 

CALLER ILC0+7320 

LOOPCOUNT 

0 

44 P A y c 

i 

SIMLOOPCOUNT 

0 

*APC 

7011 

RESULT 

0 

4 ’ A P C T A oh 

18 

SIMRESULT 

0 

+: C IA 

GO+'l 

MNBR 


CT ASK 

J0 

SIMNBR 

0 

Loaded: EDBITBLT 



Stap a t 0:G0, 

BP at 

0 ; 00+1 


Exit Boot Run 

-Prog R 

e ad-Grads* Break 

UnBr 

SS Continue 

Load Ld 

Syms Compare Te 

st-A 


V i r t u a 1 


COMM-ER0 @ 

CGMM-ER1 0 

C0MM-ER2 0 

BOOT-ERR 0 

*BOOTREASON 40 

MEMSYNDROME 7777 

-SBREG 77 

SI MSB 0 

OBREG 20 

SI MOB 0 

SR C0 9 

SRC1 0 

SRC2 0 

SRC3 0 

LQOPON 0 


Time: 10.54 


e a k Clr Added BPS ClrAUBPs ShowBPs Go 
11 Test Dump Show-Cmds Write-Cmds . 
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MicroD 8.6 (OS 16) of April 27, 1979 
at 12-Dec-79 14:20:40 

microd.run edbltblt 


edbitblt.OIB 457b instructions written 12-Dec-79 14:19:21 

Total of 457b Instructions 

Checking for errors... 

Linking... 

Building allocation lists... 

Assigning locations... 

457b instructions in rings involving ONPAGE or AT 
Reloading binaries... 

Checking assignment... 

Writing .MB file... 

Writing 1 is ting... 

IM: 


Imag 

Real 

WO 

W1 

W2 

Symbol 

edbitblt 

.DIB: 





0 

456 

32020 

101057 

12 

GO START 

1 

627 

' 47 

7054 

2 

(+1) 

2 

626 

30005 

107052 

12 

(+2) 

3 

625 

30320 

101050 

12 

(+3) 

4 

624 

30001 

123047 

6 

(+4) 

5 

623 

30323 

115044 

6 

(+5) 

6 

622 

32014 

101043 

2 

(+6) 

7 

621 

32321 

111041 

2 

(+7) 

10 

620 

30001 

137037 

16 

( + 10) 

11 

617 

30323 

115006 

14 

( + 11) 

12 

403 

47 

5035 

2 

BIGLOOP 

13 

616 

33050 

165033 

12 

( + 1) 

14 

615 

33450 

25030 

16 

(+2) 

15 

614 

50 

24200 

0 

(+3) 

16 b 

401 

50 

25134 

0 

PASSED-EDBITBLT-TEST 

17 

400 

33050 

125027 

2 

THEN1A 

20 

613 

33050 

125025 

6 

MAINLOOP 

21 

612 

50 

24007 

0 

( + 1) 

22 

402 

30150 

65022 

12 

(+2) 

23 

611 

31174 

45021 

12 

(+3) 

24 

610 

31174 

67017 

12 

(+4) 

25 

607 

31150 

65015 

6 

(+5) 

26 

606 

30050 

125013 

12 

(+6) 

27 

605 

32150 

65011 

2 

(+7) 

30 

604 

33174 

45006 

2 

( + 10) 

31 

603 

33174 

67005 

2 

( + 11) 

• 32 

602 

31150 

65003 

16 

(+12) 

33 

601 

32050 

125001 

2 

( + 13) 

34 

600 

36020 

104131 

0- 

REPEAT 

35 

454 

50 

25336 

0 

( + 1) 

36 

457 

30150 

65400 

10 

(+2) 

37 

455 

16050 

125032 

1 

(+3) 

40 

515 

16676 

101031 

11 

(+4) 

41 

514 

20050 

125027 

5 

(+5) 

42 

513 

10050 

125024 

5 

(+6) 

43 

512 

32150 

65022 

1 

(+7). 

44 

511 

16050 

125021 

5 

( + 10) 

45 

510 

16676 

101017 

15 

( + 11) 

46 

507 

20050 

125015 

1 

( + 12) 

47 

506 

10050 

125013 

1 

( + 13) 

50 

505 

20020 

101010 

11 

(+14) 

51 

504 

10020 

101007 

11 

(+15) 

52 

503 

21376 

101004 

15 

( + 16) 

53 

502 

11376 

101002 

15 

. (+17) 

54 

501 

30164 

71001 

11 

~ (+20) 

55 

500 

26050 

125177 

4 

(+21) 

56 

477 

26150 

15174 

4 

(+22) 

57 

476 

30164 

55173 

10 

(+23) 

60 

475 

14050 

125171 

14 

(+24) 

61 

474 

14150 

13166 

14 

(+25) 
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62 


473 

33065 

63165 

0 

(+26) 

63 


472 

13476 

101163 

10 

(+27) 

64 


471 

12150 

27160 

10 

(+30) 

66 


470 

32165 

67157 

0 

(+31) 

66 


467 

50 

23154 

0 

(+32) 

67 


466 

32164 

61153 

0 

(+33) 

70 


465 

12050 

125150 

14 

(+34) 

71 


464 

32160 

41147 

0 

(+35) 

72 


463 

12050 

125145 

4 

(+36) 

73 


462 

32160 

43143 

0 

(+37) 

74 


461 

24050 

125140 

10 

(+40) 

75 


460 

45 

5125 

0 

(+41) 

76 


452 

50 

25327 

0 

(+42) 

77 


453 

45 

5120 

0 

(+43) 

100 


450 

50 

25311 

0 

( + 44) 

101 


451 

36000 

103040 

1 

COMPARERESULT SUBTEST1 

102 


520 

36150 

65037 

1 

( + 1) 

103 


517 

35450 

25035 

15 

( + 2) 

104 


516 

50 

24111 

0 

(+3) 

105 


444 

50 

25001 

2 

( + 4) 

106 


445 

12150 

65052 

1 

(+5) 

107 


525 

25450 

25050 

5 

(+8) 

110 


524 

50 

24114 

0 

(+7) 

111 

b 

447 

'50 

25001 

2 

ERROR1 

112 


446 

36000 

105046 

1 

SUBTEST2 

113 


523 

36150 

65045 

1 

( + 1) 

114 


522 

35450 

25042 

15 

(+2) 

115 


521 

50 

24100 

0 

(+3) 

116 


440 

50 

25001 

2 

( + 4) 

117 


441 

14150 

65065 

11 

( + 5) 

120 


532 

27450 

25063 

1 

(+6) 

121 


531 

50 

24105 

0 

(+7) 

122 

b 

443 

50 

25001 

2 

ERROR2 

123 


442 

36000 

107060 

1 

SUBTEST3 

124 


530 

36150 

65057 

1 

( + 1) 

125 


527 

35450 

25055 

15 

(+2) 

126 


526 

50 

24070 

0 

(+3) 

127 


434 

50 

25001 

2 

(+4) 

130 


435 

10150 

65077 

1 

(+5) 

131 


537 

21450 

25074 

1 

(+6) 

132 


536 

50 

24075 

0 

( + 7) 

133 

b 

437 

50 

25001 

2 

ERROR3 

134 


436 

36000 

111073 

1 

SUBTEST4 

135 


535 

36150 

65070 

1 

( + 1) 

136 


534 

35450 

25066 

15 

(+2) 

137 


533 

50 

24061 

0 

( + 3) 

140 


430 

50 

25001 

2 

( + 4) 

141 


431 

10150 

65111 

5 

(+5) 

142 


544 

21450 

25106 

5 

(+8) 

143 


543 

50 

24064 

0 

( + 7) 

144 

b 

433 

50 

25001 

2 

ERR0R4 

145 


432 

36000 

113104 

1 

SUBTEST5 

146 


542 

36150 

65103 

1 

( + 1) 

147 


541 

35450 

25101 

15 

(+2) 

150 


540 

50 

24051 

0 

(+3) 

151 


424 

50 

25001 

2 

(+4) 

152 


425 

10150 

65122 

11 

(+5) 

153 


551 

21450 

25121 

11 

(+6) 

154 


550 

50 

24054 

0 

( + 7) 

155 

b 

427 

50 

25001 

2 

ERROR5 

156 


426 

36000 

115116 

1 

SUBTEST6 

157 


547 

36150 

65114 

1 

( + 1) 

160 


546 

35450 

25113 

15 

(+2) 

161 


545 

50 

24040 

0 

(+3) 

162 


420 

50 

25001 

2 

(+4) 

163 


421 

10150 

65134 

15 

(+5) 

164 


556 

21450 

25132 

15 

(+8) 

165 


555 

50 

24045 

0 

( + 7) 

166 

b 

423 

50 

25001 

2 

ERROR6 

167 


422 

36000 

117130 

1 

SUBTEST7 

170 


554 

36150 

65127 

1 

( + 1) 

171 


553 

35450 

25125. 

15 

(+2) 

172 


552 

50 

24031 

0 

(+3) 

173 


414 

50 

25001 

2 

(+4) 

174 


415 

66150 

41147 

15 

(+5) 

175 


563 

13450 

25145 

11 

(+6) 
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176 

562 

50 

24034 

0 

( + 7) 

177 

b 417 

50 

25001 

2 

ERR0R7 

200 

416 

36000 

121142 

1 

SUBTEST10 

201 

561 

36150 

65141 

1 

( + 1) 

202 

560 

35450 

25137 

15 

(+2) 

203 

557 

50 

24016 

0 

. ( + 3) 

204 

406 

50 

25001 

2 

(+4) ■ 

205 

407 

64150 

41176 

15 

(+6) 

206 

577 

2050 

125174 

1 

(+6) 

207 

576 

2165 

41173 

1 

(+7) 

210 

575 

15450 

25171 

15 

( + 10) 

211 

574 

50 

24025 

0 

( + 11) 

212 

b 413 

50 

25001 

2 

ERRORIO 

213 

412 

36000 

123167 

1 

SUBTEST11 

214 

573 

36150 

65165 

1 

( + 1) 

215 

572 

35450 

25162 

15 

( + 2) 

216 

571 

50 

24020 

0 

(+3) 

217 

410 

50 

25001 

2 

(+4) 

220 

411 

64150 

41161 

15 

(+6) 

221 

570 

2050 

125156 

1 

(+6) 

222 

567 

2164 

65155 

1 

(+7) 

223 

566 

27450 

25153 

5 

( + 10) 

224 

565 

50 

24010 

0 

( + 11) . .' 

225 

b 405 

50 

25001 

2 

ERR0R11 

226 

404 

45 

3150 

1 

THEEND 

227 

564 

50 

25026 

2 

( + 1) 

230 

1044 

24020 

101122 

4 

BITBIT 

231 

1051 

50 

24706 

0 

( + 1) 

232 

1042 

52 

25017 

2 

DONTMASKDESTINATION 

233 

@1207 

25050 

125114 

4 

BBLOOPO 

234 

1046 

56340 

41112 

4 

( + 1) 

235 

1Q45 

61755 

125616 

12 

(+2) 

236 

91205 

26000 

107401 

0 

BBFIUSOURCEO 

237 

@1206 

26000 

111400 

0 

BBFILLDESTO 

240 

01204 

26000 

105400 

0 

BBFILLBOTHO 

241 

01203 

26000 

103400 

0 

BBITEMDONEO 

242 

1043 

52 

25016 

3 

MASKTHEDESTINATION 

243 

@1307 

25050 

125121 

4 

BBL00P1 

244 

1050 

56340 

41117 

4 

( + 1) 

245 

1047 

61752 

125616 

13 

(+2) 

246 

@1305 

26000 

107401 

0 

BBFILLS0URCE1 

247 

@1306 

26000 

111400 

0 

BBFILLDEST1 

250 

01304 

26000 

105400 

0 

BBFILLB0TH1 

251 

01303 

26000 

103400 

0 

BBITEMD0NE1 

252 

1052 

50 

25401 

0 

( + 1) 

253 

1053 

12020 

101040 

2 

SIMBITBLT 

254 

1220 

13050 

125037 

2 

SIMBLTSTART 

255 

1217 

14161 

65035 

16 

( + 1) 

256 

1216 

2050 

125033 

6 

(+2) 

257 

1215 

2150 

25030 

6 

(+3) 

260 

1214 

50 

24100 

0 

(+4) 

261 

1040 

16150 

65027 

2 

(+5) 

262 

1213 

50 

125024 

16 

(+6) 

2.63 

1212 

50 

25023 

2 

(+7) 

264 

1041 

3400 

3135 

4 

TRYSRC1 

265 

1056 

50 

24075 

0 

( + 1) 

266 

1036 

16150 

65132 

4 

(+2) 

267 

1055 

50 

125130 

14 

jf+3) 

270 

1054 

50 

25023 

2 

X+4) _ 

271 

1037 

3400 

5142 

4 

TRYSRC2 

272 

1061 

50 

24070 

0 

(+ir ~ 

273 

1034 

16150 

65140 

10 

(+2) 

274 

1060 

50 

125136 

14 

(+3) 

275 

1057 

50 

25023 

2 

(+4) 

276 

1035 

16150 

65144 

14 

ISSRC3 

277 

1062 

50 

125022 

16 

( + 1) 

300 

1211 

14163 

63020 

16 

CALSRC8IT 

301 

1210 

■ 50 

125004 

12 

( + 1) 

302 

1202 

1476 

101002 

2 

(+2) 

303 

1201 

1101 

101001 

2 

(+3) 

304 

1200 

26161 

65176 

5 

(+4) 

305 

1177 

2050 

125175 

5 

(+5) 

306 

1176 

2150 

25173 

.5 

(+6) 

307 

1175 

50 

24064 

0 

( + 7) 

310 

1032 

10150 

65170 

1 

( + 10) 

311 

1174 

24050 

125167 

1 

( + 11) 
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312 

1173 

50 

25165 

1 

( + 12) 

313 

1033 

3400 

3153 

4 

TRYOEST1 

314 

1065 

50 

24061 

0 

( + 1) 

315 

1030 

10150 

65151 

4 

(+2) 

316 

1064 

24050 

125147 

0 

(+3) 

317 

1063 

50 

25165 

1 

(+4) 

320 

1031 

3400 

5160 

4 

TRYDEST2 

321 

1070 

50 

24054 

0 

( + 1) 

322 

1026 

10150 

65157 

10 

(+2) 

323 

1067 

24050 

125155 

0 

(+3) 

324 

1066 

50 

25165 

1 

( + 4) 

325 

1027 

10150 

65163 

14 

ISDEST3 

326 

1071 

24050 

125164 

1 

( + 1) 

327 

1172 

26163 

63163 

5 

CALDSTBIT 

330 

1171 

22050 

125161 

15 

( + 1) 

331 

1170 

23476 

101156 

1 

(+2) 

332 

1167 

23101 

101155 

1 

(+3) 

333 

1166 

22150 

65153 

1 

( + 4) 

334 

1165 

1450 

25150 

1 

(+5) 

335 

1164 

50 

24250 

.0 

(+6) 

336 

1024 

22150 

65147 

1 

( + 7) 

337 

1163 

24050 

125145 

15 

( + 10) 

340 

1162 

50 

25142 

1 

( + 11) 

341 

1025 

150 

65164 

0 

GETSRCBIT 

342 

1072 

24050 

125143 

15 

( + 1) 

343 

1161 

24150 

65141 

15 

THENNBR 

344 

1160 

13150 

25137 

11 

( + 1) 

345 

1157 

50 

24205 

0 

(+2) 

346 

1002 

12150 

65134 

11 

(+3) 

347 

1156 

25476 

101006 

14 

(+4) 

350 

1003 

174 

51133 

11 

SRCFIELD 

351 

1155 

50 

125130 

5 

( + 1) 

352 

1154 

25350 

65127 

15 

(+2) 

353 

1153 

350 

125124 

5 

(+3) 

354 

1152 

150 

11123 

5 

(+4) 

355 

1151 

154 

65120 

15 

(+5) 

356 

1150 

50 

125116 

15 

(+6) 

357 

1147 

22174 

51115 

15 

(+7) 

360 

1146 

22050 

125112 

5 

( + 10) 

35 t 

1145 

25350 

65111 

15 

( + 11) 

362 

1144 

22350 

125106 

5 

( + 12) 

363 

1143 

37376 

101105 

5 

( + 13) 

364 

1142 

22020 

101102 

11 

( + 14) 

365 

1141 

22150 

11101 

5 

( + 15) 

366 

1140 

36151 

65076 

5 

( + 16) 

367 

1137 

22353 

125075 

11 

( + 17) 

370 

1136 

2020 

101073 

5 

(+20) 

371 

1135 

22150 

11071 

5 

(+21) 

372 

1134 

151 

65066 

15 

(+22) 

373 

1133 

2353 

125065 

5 

(+23) 

374 

1132 

2150 

65062 

5 

(+24) 

375 

1131 

50 

125060 

15 

(+25) 

376 

1130 

12150 

25057 

5 

(+26) 

377 

1127 

50 

24010 

0 

(+27) 

400 

1004 

22150 

65055 

11- 

(+30) 

401 

1126 

650 

125013 

14 

(+31) 

402 

1005 

24150 

25052 

11 

CLEARDBIT 

403 

1125 

50 

24045 

0 

( + 1) 

404 

1023 

22150 

65166 

10 

(+2) 

405 

1073 

24550 

125045 

0 

(+3) 

406 

1022 

150 

65051 

15 

PERFORM 

407 

1124 

25750 

125047 

1 

( + 1> 

410 

1123 

26161 

65044 

5 

(+2) 

411 

1122 

2050 

125042 

5 

(+3) 

412 

1121 

2150 

25041 

5 

(+4) 

413 

1120 

50 

24040 

0 

(+5) 

414 

1020 

24150 

65037 

1 

(+6) 

415 

1117 

10050 

125034 

1 

(+7) 

416 

1116 

50 

25032 

1 

( + 10) 

417 

1021 

3400 

3174 

4 

TRYSIMD1 

420 

1076 

50 

24034 

0 

” ( + 1) 

421 

1016 

24150 

65173 

0 

(+2) 

422 

1075 

10050 

125171 

4 

(+3) 

423 

1074 

50 

25032 

1 

(+4) 

424 

1017 

3400 

5003 

5 

TRYSIM02 

425 

1101 

50 

24031 

0 

( + 1) 



426 

1014 

24150 

65001 

1 

(+2) 

427 

1100 

10050 

125177 

10 

(+3) 

430 

1077 

50 

25032 

1 

(+4) 

431 

1015 

24150 

65004 

1 

ISSIM03 

432 

1102 

10050 

125032 

15 

( + 1) 

433 

1115 

24150 

65031 

15 

INCBITCNT 

434 

1114 

15150 

125027 

15 

( + 1) 

435 

1113 

14165 

101025 

15 

(+2) 

436 

1112 

27150 

125022 

5 

(+3) 

437 

1111 

26165 

101020 

5 

(+4) 

440 

1110 

13150 

125016 

11 

(+5) 

441 

1107 

12150 

25015 

11 

(+6) 

442 

1106 

50 

24025 

0 

(+7) 

443 

1012 

14000 

103400 

10 

(+10) ' 

444 

1013 

14150 

25012 

15 

CHECKSB 

445 

1105 

50 

24015 

0 

( + D 

446 

1006 

26150 

25006 

5 

(+2) 

447 

1103 

50 

24020 

0 

(+3) 

450 

1010 

14000 

105400 

10 

(+4) 

451 

1011 

14000 

107401 

10 

SRCOUT 

452 

1007 

26150 

25011 

5 

CHECKD8 

453 

1104 

50 

24001 

0 

( + 1) 

454 

1000 

14000 

111400 

10 

( + 2) 

455 

1001 

'50 

25040 

2 

NOTFINISH 

456 

1221 

50 

25401 

0 

( + 1) 


400: 

230 

locations 

used, 

150 

1000: 

227 

locations 

used, 

151 


1 


CA 

2 


XA 

3 


CB 

4 


XB 

5 

0 

INMERIOOPCOUNTER 

6 


PASSCOUNT 

7 

2 

MAXPASS 

13 

0 

LOOPON 

14 


SUBTEST 

15 


ALLONES 

20 


DESTO 

21 


DEST1 

22 


DEST2 

23 


OEST3 

24 


OESTBITSTOGO 

25 


DESTFIELDDESCRIPTOR 

26 


DESTMASK 

27 


DESTSTART 

30 


DESTWORO 

31 


LOOPCOUNT 

32 


MASKDEST 

33 


NBITS 

34 


RESULT 

35 


SIMDB 

40 . 


SIMDESTO 

41 


SIMDEST1 

42 


SIMDEST2 

43 


SIMDEST3 

44 


SIMLOOPCOUNT 

45 


SIMMASKFILLSRC 

46 


SIMNBR 

47 


SIMOP 

52 


SIMRESULT 

53 ■ 


SIMSB 

54 


SRCO 

55 


SRC1 

56 


.SRC2 

57 


SRC3 

60 


SRCBITSTOGO 

61 


SRCFIELDDESCRIPTOR 

62 


SRCSTART 

63 


SRCWORD 

64 


TMP 

65 


TMPWORD 

66 

1 

REVISION 
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67 14 RUM-TIME 

70 RLC0 

Time: 11 seconds; 0 error(s), 0 warning(s), 11504 words free 
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;; f'Dli i UM tLog .MIDAS : Logger for TDliilBIt program 
; ; By: C. Iseng 


Dec. 6, 1979 


. start 


L X AppendOutput EDBitBlt.report; 

L X WriteMessage ~********** START EDBitBlt Test : ; 

L X WriteDT; 

L X WriteMessage ***•■*•***•*****.. ; 

L X Skip .continue; 


.breakpoint L 
L 
L 
L 
L 
L 
I. 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 


X AppendOutput EDBitBlt.report; 
A18 SkipNE ERRORl; 

X Skip .errorl; 

A18 SkipNE ERROR2; 

X Skip ,error2; 

A18 SkipNE ERROR3; 

X Skip .error3; 

A18 SkipNE ERR0R4; 

X Skip .error4; 

A18 SkipNE ERR0R5; 

X Skip .errorS; 

A18 SkipNE ERR0R6; 

X Skip .errorB; 

A18 SkipNE ERR0R7; 

X Skip ,error7; 

A18 SkipNE ERRORIO; 

X Skip .errorlO; 

A18 SkipNE ERROR11; 

X Skip .errorll; 

A18 SkipNE PASSED-ED81TBLT-TEST; 
X Skip .passtest; 


.notmybreak L 
L 


X AppendOutput EDB i tBlt.report; 

X WriteMessage *** FAILed: Not at my breakpoint ~; 


L X WriteMessage ' Parity = 
R AO Val; 

L X WriteMessage; 

L X WriteMessage ~; 


L X WriteMessage * CIA 3 ; 

R A18 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CTASK = 

R A19 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ’ APCTASK = 
R A17 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' APC 3 ; 

R A16 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ’ TPC 3 ; 

R A13 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X CloseOutput; 

L X Exit; 


.errorl 


1. X WriteMessage *** FAILed: at my Breakpoint ~; 

L X WriteMessage * LoopCount does not equal to SimLoopCount ~; 

L X WriteMessage ' LoopCount 3 ; 

R B14 Val; 

L X WriteMessage; 
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. bad 


.error2 


.error3 


.error4 


.error5 


.error6 


L X WriteMessage 

L X WriteMessage ' SimLoopCount = ; 

R 815 Val; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ' SUBTEST = ; 

R 84 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' PASSCOUNT * ; 

R 82 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X Skip .continue; 

L X WriteMessage *** FAILed: at my Breakpoint -; 

L X WriteMessage * Result does not equal to SimResult 

L X WriteMessage ’ Result = ; 

R 816 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

l X WriteMessage ’ SimResult = ; 

R 817 Val; 

L X WriteMessage; 

L X WriteMessage 
L X BackSkip .bad; 

L X WriteMessage *** FATLed: at my Breakpoint 

L X WriteMessage * DestO does not equal to SimDestO ~; 

l X WriteMessage ' DestO = ; 

R B6 Val; 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' SimDestO = 

R 87 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X BackSkip .bad; 

L X WriteMessage *** TAILed: at my Breakpoint ~; 

L X WriteMessage * Destl does not equal to SimDestl 

L X WriteMessage ' Destl = ; 

R 88 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' SimDestl = ; 

R B9 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X BackSkip .bad; 

L X WriteMessage *** FAILed; at my Breakpoint ~: 

L. X WriteMessage * Dest2 does not equal to SimDest2 

L X WriteMessage ' Dest2 * ; 

R BIO Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' SimDest2 * ; 

R Bll Val; 

L X WriteMessage; 

L X WriteMessage -; 

L X BackSkip .bad; 

L X WriteMessage *** FAILed; at my Breakpoint ~; 

L X. WriteMessage * . Dest3 does not equal to SimDest3 ~; 

L X WriteMessage ' Dest3 * ' ; 

R B12 Val; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ’ SimDest3 * ; 

R B13 Val; 

L X WriteMessage; 

L X WriteMessage 
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. error7 


. error 10 


. error 11 


. passtest 


.con tinue 
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L X BackSkip .bad; 

L X WriteMessage *** FAILed: at my Breakpoint 
L X WriteMessage * MNBR does not equal to SimNBR 

L X WriteMessage ' MNBR a 
R 818 Val.; 

L X WriteMessage; 

L X WriteMessage 
L X WriteMessage ' SimNBR 3 ; 

R B19 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X BackSkip .bad; 

L X WriteMessage *** FAILed: at my Breakpoint ~; 

L X WriteMessage * SB does not equal to SimSB ~; 

L X WriteMessage ' SB = ; 

R C6 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' SimSB 3 

R C7 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X BackSkip .bad; 

L X WriteMessage *** FAILed: at my Breakpoint 
L X WriteMessage * DB does not equal to SimDB ~; 

L X WriteMessage ' OB = ; 

R C8 Val; 

L X WriteMessage; 

L X WriteMessage ~; . 

L X WriteMessage ’ SimDB 3 ; 

R C9 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X BackSkip .bad; 

L X WriteMessage -- PASSed EDBitBlt Test : ; 

L X WriteDT; 

L X WriteMessage -~ ; 

L X Skip .continue; 

L X WriteMessage ~; 

L X CloseOutput; 

L X DisplayOn; 

L X Confirm; 

L X TimeOut 10000000; 

L X Continue; 

L X Skip 2; 

L X ShowError Program failed to CONTINUE.; 

L X BackSkip .notmybreak; 

L X DisplayOff; 

L X BackSkip .breakpoint; 
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l A19 Val 0 
t X Confirm 
L X Load EDBITBLT; 

L BO Addr REVISION; 

I B1 Addr RUN-TIME; 

L 02 Addr PASSCOUNT; 

L B3 Addr MAXPASS; 
t B4 Addr SUBTEST; 

L B6 Addr DESTO; 

L B7 Addr SIMDESTO; 

L B8 Addr DEST1; 

L B9 Addr SIM0EST1; 

!. BIO Addr 0EST2; 

L Bll Addr SIMDEST2; 

I. B 1 2 Addr DEST3 ; 

1 Bl3 Addr SIM0EST3; 

L B14 Addr LOOPCOUNT; 

l B15 Addr S1ML00PC0UNT; 

!. B16 Addr RESULT; 

I. B 1 7 Addr SIMRESULT; 

1. 0 13 Addr MNOR; 

L 819 Addr SIMNBR; 

L C6 Addr SBREG; 

L C7 Addr SIMS8; 

L C8 Addr DBREG; 

E C9 Addr SIMOB; 

L C12 Addr SRCO; 

L C13 Addr SRC 1; 

L C14 Addr SRC2; 

1 C15 Addr SRC3; 

L C18 Addr LOOPON; 

L X DisplayOn; 

L X TimeOut 10000 
L X SS GO 
1. X Skip 1 

1 X ShowError Single-step at GO hung 
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<D0D1ag>Rev-l>EDCSEx.me Revision 1 Nov 13,1979 


*** EDCSEx.mc : Control Store Exerciser microcode 

*** Purpose : This test exercises the control store as a 4K x 36 bit memory. 

Only locations not occupied by the program or the kernel are exercised. 

*** Minimum Hardware : Standard 4 CPU boards. 

*** Approximate Run Time : 30 seconds. 

*** Written by : C. Thacker, Dec. 12, 1978 

Added link saving to writeCS and readCSX to save link 
smashed by control store operations. 

*** Modified by : T. Henning, Oct. 5, 1979 

Standardize title page and code format. 

*** Modified by : T. Henning, Oct. 15, 1979 

Implement looping and standard labels. 

*** Modified by : T. Henning, Oct. 24, 1979 

Added capability for all zeros, all ones, and checker patterns. 

*****««« ****************************************************************************** 


***«****;***************************#**********«**«****** + ********************:*********** 

♦SubTest Description: 

* SubTest 0: writes a data pattern into each location, reads the contents back 

and compares them with what was written. 

* SubTest 1: reads each location and compares them with what was written. 

**************************************************************************************** 

♦Breakpoints: 

* WORDOBAD: Word 0 of the Control Store read did not match word 0 written in SubTestO. 

* W0RD1BAD: Word 1 of the Control Store read did not match word 1 written in SubTestO. 

* W0RD2BAD: Word 2 of the Control Store read did not match word 2 written in SubTestO. 

* WORDOBADREAD: Word 0 of the Control Store read did not match word 0 in SubTestl. 

* W0RD1BADREAD: Word 1 of the Control Store read did not match word 1 in SubTestl. 

* W0RD2BADREAD: Word 2 of the Control Store read did not match word 2 in SubTestl. 

* Passed-CDCSEx-Test: Passed all tests, and all passes. 

******** ******************************************************************************** 

* ShortLoop Logic Analyzer Sync Points at Control Store address: 

* WORDOBAD: Control Store address 424 at TESTLOOPO. 

* W0RD1BAD: Control Store address 424 at TESTLOOPO. 

* WORD2BAD: Control Store address 424 at TESTLOOPO. 

* WORDOBADREAD: Control Store address 464 at TESTLOOP1. 

* W0RD1BADREAD: Control Store address 464 at TESTLOOP1. 

* W0RD2BADREAD: Control Store address 464 at TESTL00P1. 
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***»********************«******************************«*****a 

•Special Reg. Definition: 


• ShortLoop: At any breakpoint, the user has the choice of setting ShortLoop to a 1 to 
loop on the current test. During the short loop, the user can modify the address 
and data to the Control Store at will by changing CurrentLoc and WdO, Wdl, and Wd2. 

1, the current test will loop repeatedly for trouble shooting 
0, no looping in current test 


• PatternChoice: 


Bit 15 - all zeros pattern, enable by 1. disable by 0 
Bit 14 - all ones pattern, enable by 1, disable by 0 
Bit 13 - checker pattern, enable by 1, disable by 0 
Bit 12 - random pattern, enable by 1, disable by 0 

Example: PatternChoice=l enables the all zeros pattern only 
PatternChoice*2 enables the all ones pattern only 
PatternCho1ce«4 enables the checker pattern only 
PatternChoice=10 enables the random pattern only 
PatternChoice 3 17 enables all four of the patterns 
PatternChoice»ll enables the random and all zeros patterns 


the type of looping 


LoopControl: bit 0 & 15 are used to control 
bit 0 bit 15 

0 0 write/read VARYing data at ONE address 

0 1 write/read VARYing data at ALL address 

1 0 write & check CONSTANT data at ONE address 

1 1 write/read CONSTANT data at ALL address 

Note that if the address is not allowed to increment, the program will stay in the write loop 
forever. Also, during the read loop, it Is not sensible to have LoopControl.0 =1, since a 
different value was written into each cell during the write pass. 


•Subroutine Description: 

• FillBuf: places 2 16-bit patterns in WOO-1, and a 4 bit pattern in WD2. 

The pattern may be all zeros, all ones, checker, or random, 
depending on the value of CurrentPattern. 

• Rand: produces a pseudo-random number in t & xa registers 

by Xa - 4005*Xa + Ca mod 2**16. 

* ReadCSX: reads control store location CurrentLoc into RD0-2. 

* WriteCS: writes 3 words from WDO-2 to the control store at CurrentLoc. 
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♦INITIALIZATION: 

BUILTIN[INSERT,24]; 

INSERT[dGlang]; 

TITL£[Control Store Exerciser]; 

SET[ProgPage,1]; ’program Is one page long 

ONPAGE[ProgPage]; 

•*«**«**»* R-Registers: ********** 

RV[LowLoc:,20 ,ADD[LSHIFT[ProgPage,10],400]]; ’first location tested - one beyond program page 
RV[CurrentLoc,21]; “the current Control Store location Involved 

RV[HighLoc,22,6777]; *last location tested - below kernel 

RV[RdO,23]; ’3 word read buffer 

RV[Rdl,24]; 

RV[Rd2,26]; 

RV[Wd0,26,177777]; *3 word write buffer 

RV[Wdl,27,177777]; 

RV[Wd2,30,17]; . 

RV[Md0,31,177777]; *3 word mask - l's mean compare the bit 

RV[Mdl,32.177777]; 

RV[Md2,33,17]; 

RV[R1inkO,34]; ’subroutine return link 

RV[Xa,35,123]; ’Random Number Generator (RNG) registers 

RV[Ca,36,33031]; 

RV[SavedXa ,37]-; 

RV[PassCount,40,0]; 

RV[MaxPass,41,100]; 

RV[SubTest.42]; 

RV[Shortl.oop , 43,0]; ’Disable looping at program initialization 

RV[L.oopControl ,44,1]; 

RV[PatternChoice,45,17];’Enable all four pattern at program Initialization 

RV[PatternTry,46,1]; ♦Initialize to all zeros pattern 

RV[CurrentPattern,47,1];♦Initialize to all zeros pattern 

RV[Ones , 60,177777]; *define ones to be 177777 

RV[Checkerl,51,125252]; ’checker pattern register 

RV[CheckerO,52,052525]; ’checker pattern register 

RV[Toggle,53,0]; ’checker toggle register 

RV[Revis ion,54,1]; ’REVISION 1 

RV[Run-Time,55,36]; ’Run-Time is 36b or 300 seconds 
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*•• MAIN routine: 


start: 

go: t«-Xa; *save RNG 

SavedXa«-t; 

t«-LowLoc; *set address 

CurrentLoc«-t; 


Again: t (PatternTry) AND (177760C); 
goto[WhatPattern,alu a O]; 
PatternTry <- 1C; 
call[Rand]; 

Toggle <- 0C; 

PassCount«- t «-(PassCount)+l; 
lu «- (MaxPass) - (t); 
goto[.+2, alu>=0]; 

Passed-EDCSEx-Test: PassCount *■ 0C, 


•what pattern to use? 

•exhausted all four pattern types? 
•yes, select the zero pattern again 
•process the (not very good) RNG 
•reset checker pattern toggle 
•increment pass count 

•finished all passes? 
goto[start], breakpoint; 


nop; 

WhatPattern: t «- PatternCholce; *determ1ne what pattern to use 

t *• (PatternTry) AND (t); 

goto[NextPattern,alu»0]; *do we want to use this pattern? 

ThisPattern: CurrentPattern *■ t, goto[.+2]; *yes, use this pattern 

NextPattern: PatternTry ♦* LSH[PatternTry,1], goto[Again]; *no, try the next pattern 


•SUBTEST 0 

SubTest «* 0C; 


writeloopO: Cal 1[Fi1lBuf]; 
writeloopl: nop; 


TestLoopO: call[WriteCS]; 

cal 1[ReadCSX]; 
t«-WdO, TASK; 
t«-(RdO) xor (t); 

Shortloop ♦- ShortLoop, goto[.+2,R EVEN]; 
goto[TestloopO]; *short loop selected 
t*-(MdO) and (t); 
goto[.+2,alu=0]; 
wordObad: breakpoint; 


•write data into Control Store 

•read Control Store and store it in RdO-2 

•allow mouse halt 

•compare RdO with WdO under mask MdO 

•test for ShortLoop option 


t*-Wdl; *compare Rdl with Wdl under mask Mdl 

t«-(Rd 1) xor (t); 

Shortloop «- ShortLoop, goto[.+2,R EVEN]; *test for ShortLoop option 

goto[TestLoopO]; *short loop selected 

t<-(Mdl) and (t); 
goto[.+2,alu a 0]; 
wordlbad: breakpoint; 


t«-Wd2; *compare Rd2 with Wd2 under mask Md2 
t*-(Rd2) xor (t); 

ShortLoop *■ Shortloop. goto[.+2.R EVEN]; 
goto[TestloopO]; 
t«-(Md2) and (t); 
goto[.+2,alu=0]; 
word2bad: breakpoint; 

Shortloop «• ShortLoop, goto[.+2,R EVEN]; 
goto[TestLoopO]; 

t ♦- (LoopControl) and (1C); 

CurrentLoc t (CurrentLoc)+(t); 
lu<-(HighLoc)-t; 
goto[.+2, alu<0]; 
lu LoopControl, dblgoto[writeloopl,writeloopO,R<0]; 

•do not change data if LoopControl.0=l 

•reset address 
•reset RNG 

•reset checker pattern toggle 


t+-LowLoc; 
CurrentLoc t; 
t*-SavedXa; 

Xa«-t; 

Toggle «- 0C; 


•test for ShortLoop option 
•short loop selected 


•test for ShortLoop option 
•short loop selected 


*done7 
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♦SUBTEST 1 

SubTest «- 1C; 


readloopO: call[FillBuf]; 
readloopl; nop; 


♦fill buffer 

♦odd-even placement constraints 


TestLoopl: call[ReadCSX]; 

t«-WdO, TASK; 
t«-(RdO) xor (t); 
ShortLoop ♦- ShortLoop, 
goto[TestLoopl]; 
t«-(MdO) and (t); 
goto[.+2,alu*0]; 
wordObadRead: breakpoint; 


♦read Control Store and store It In RdO-2 
♦allow mouse halt 

♦compare RdO with WdO under mask MdO 
goto[.+2,R EVEN]; *test for ShortLoop option 

♦short loop selected 


t«-Wdl; 

t«-(Rdl) xor (t); 

ShortLoop *■ ShortLoop, goto[.+2,R EVEN]; 
goto[TestLoopl]; 
t«-(Mdl) and (t); 
goto[.+2,alu*0]; 
wordlbadilead: breakpoint; 

t«-Wd2; 

t*-(Rd2) xor (t); 

ShortLoop ShortLoop, goto[.+2,R EVEN]; 
goto[TestLoopl]; 
t*-(Md2) and (t); 
goto[.+2,alu=0]; 
word2badRead: breakpoint; 

ShortLoop ShortLoop, goto[.+2,R EVEN]; 
goto[TestLoopl]; ♦short loop selected 


•compare Rdl with Wdl under mask Mdl 

♦test for ShortLoop option 
♦short loop selected 


♦compare Rd2 with Wd2 under mask Md2 

•test for ShortLoop option 
♦short loop selected 


♦test for ShortLoop option 


t «- (LoopControl) and (1C); * 

CurrentLoc «- t +• (CurrentLoc)+(t); •done? 

lu<-(HighLoc)-t; 

goto[.+2, alu<0]; 

lu «- LoopControl, dblgoto[ readl oop 1, readloopO, R<0]; 

♦do not change data if LoopControl.0=1 

PatternTry <- LSH[PatternTry, 1] , goto[start]; •use the next pattern 
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********* SUBROUTINE: FillBuf 


* puts pattern into WdO, Wdl, Wd2 

* of CurrentPattern: 

* CurrentPattern 

* 1 

• 2 

• 4 

* 10 

FillBuf: usectask; 

t«-apc&apctask; 

R1 ink0«-t; 


The pattern depends on the value 


WdO. Wdl 

Wd2 


000000 

00 

All Zeros pattern 

177777 

17 

All Ones pattern 

1252S2 

12 ' 

Checker pattern 

or 1252525 

or 05 


random 

"random 

Random pattern 


Try 1: 


Try2: 


t *■ (CurrentPattern) AND (1C); 
gotofTryl.alu^O]; 

WdO 0C; 

Wdl «- OC; 

Wd2 OC, goto[Bottom]; 
t «- (CurrentPattern) AND (2C); 
goto[Try2,alu*0]; 
t «• Ones; 

WdO «• t; 

Wdl «■ t; 

t <- (Ones) AND (17C); 

Wd2 <- t, goto[Bottom]; 
t ♦* (CurrentPattern) AND (4C); 
goto[Try3,alu=0]; 

Toggle «- Toggle, goto[Checker01 
t «- Checkerl; 

WdO «- t; 

Wdl «• t; 


•want the zeros pattern? 

•yes, fill WdO-2 with zeros pattern 


•no, try the ones pattern 
•want the ones pattern? 

•yes, fill WdO-2 with ones pattern 


•no, try the checker pattern 
•want the checker pattern? 

R ODD]; *yes, fill WdO-2 with checker pattern 

•1010101010101010 pattern 


t - (Checkerl) AND (17C); 

Wd2 «- t; 

Toggle <- (Toggle) + 1, goto[Bottom]; 
CheckerOl: t CheckerO; *0101010101010101 pattern 
WdO «- t; 

Wdl *■ t; 

t «- (CheckerO) AND (17C); 

Wd2 «- t; 

Toggle *■ (Toggle) + 1, goto[Bottom]; 

Try3: t *• (CurrentPattern) AND (IOC); 

goto[Bottom,alu=0]; 
call[Rand]: 

Wd0«-t; 


•toggle checker pattern 


•toggle checker pattern 
•no, try the random pattern 
•want the random pattern? 

•yes, fill WdO-2 with random pattern 


cal 1[Rand]; 

Wdl«-t; 
cal 1[Rand]; 

Wd2«-t; 

Wd2<-(Wd2)and (17C); 
Bottom: apc&apctask<-Rl inkO; 
return; 
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«*,*****,« SUBROUTINE: Rand ********** 

* 

* to produce a pseudo-random number in t & Xa reg. 

* formula: Xa «- 4005*Xa + ca mod 2**16 

Rand: t«-Xa; 

t*-(lsh[Xa,2])+(t); *t* 5*Xa 

t*-( 1 sh[Xa, 13])+(t); *t<-4005*Xa 

t*-(Ca)+t; 

Xa«-t, return; 

********** SUBROUTINE: ReadCSX ********** 

* to read control store location Currentloc Into RDO-2 

ReadCSX: usectask; 

t*-apc&apctask; 

R1ink0*-t; 
t«-ZERO; 

apc&apctask«-CurrentLoc; 

readCS; 

t«-csdata; 

RdQ«-t; 

tMC; 

apc&apctask Currentloc; 

readCS; 

t«-csdata; 

Rdl«-t; 

t«-3C; 

apc&apctask «- Currentloc; 

readCS; 

t«-csdata; 

Rd2«-t; 

Rd2«-(LDF[Rd2,0,4]); *control store bits come back in bits 0-3 
apc&apctask«-Rl inkO; 
return; 

********** SUBROUTINE: WriteCS ********** 

* 

* to write 3 words from WD0-2 to the control store at CurrentLoc. 

WriteCS: usectask; 

t*-apc&apctask; 

R1 ink0«-t; 
t*-Wd2; 

Iu<-Wd0; 

apc&apctask«-CurrentLoc; 
writeCS0&2; 
lu«-Wdl; 

* apc&apctask*-Currentloc; 
writeCSl; 

apc&apctask«-R1 i-nkO; 
return; 


end; 


to end the MAIN routine 
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MicroD 8.6 (OS 16) of April 27, 1979 
at 27-IYOV-79 11:14:00 

microd.run EDCSEx 


EDCSEx.DIB 251b instructions written 27-Nov-79 11:13:19 

Total of 251b instructions 

Checking for errors... 

Linking... 

Building allocation lists... 

Assigning locations... 

251b instructions in rings Involving ONPAGE or AT 
Reloading binaries... 

Checking assignment... 

Writing .MB file.. . 

Writing 1isting... 

IM: 


Imag 


Real 

WO 

W1 

W2 

Symbol 

EDCSEx.1 

DIB: 





0 


467 

26150 

65121 

6 

GO START 

1 


650 

26050 

125117 

16 

( + 1) 

2 


647 

20150 

65115 

2 

(+2) 

3 


646 

20050 

125113 

6 

(+3) 

4 


645 

12217 

41110 

12 

AGAIN 

5 


644 

50 

24174 

0 

( + 1) 

6 


477 

12000 

103165 

10 

(+2) 

7 


472 

50 

25224 

1 

(+3) 

10 


473 

14020 

101013 

15 

(+4) 

11 


505 

11050 

165010 

1 

(+5) 

12 


504 

11450 

25007 

5 

(+6) 

13 


503 

50 

24205 

0 

(+7) 

14 

b 

403 

10020 

101156 

0 

PASSED-EDCSEX-TEST 

15 


402 

50 

25175 

0 

( + 1) 

16 


476 

12150 

65107 

6 

WIIATPATTERN 

17 


643 

12250 

65104 

12 

( + 1> 

20 


642 

50 

24160 

0 

(+2) 

21 


471 

12050 

125102 

16 

THISPATTERN 

22 


470 

12174 

103112 

12 

NEXTPATTERN 

23 


641 

10020 

101030 

10 

( + 1) 

24 


414 

50 

25351 

1 

WRITELOOPO 

25 


415 

50 

25050 

0 

WRITEL00P1 

26 


424 

50 

25301 

2 

TESTLOOPO 

27 


425 

50 

25250 

2 

( + 1) 

30 


426 

22150 

65377 

11 

(+2) 

31 


577 

20450 

65400 

14 

(+3) 

32 


427 

10150 

124426 

14 

(+4) 

33 


413 

50 

25050 

0 

(+5) 

34 


412 

24250 

65175 

5 

(+6) 

35 


576 

50 

24045 

0 

(+7) 

36 

b 

423 

50 

25044 

0 

WORDOBAD 

37 


422 

22150 

65172 

15 

J + l) 

40 


575 

22450 

65171 

1 


41 


574 

10150 

124423 

14 

(+3) 

42 


411 

50 

25050 

0 

(+4). 

43 


410 

24250 

65167 

11 

(+5) 

44 


573 

50 

24040 

0 

(+6) 

45 

b 

421 

50 

25041 

0 

W0RD1BAD - 

46 


420 

24150 

65165 

1 

( + 1) 

47 


572 

22450 

65162 

5 

(+2) 

50 


571 

10150 

124416 

14 

(+3) 

.51 


407 

50 

25050 

0 

(+4) 

52 


406 

24250 

65160 

15 

(+5) 

53 


570 

50 

24034 

0 

(+6) 

54 

b 

417 

50 

25035 

0 

W0RD2BAD 

55 


416 

10150 

124413 

14 

( + D 

56 


405 

50 

25050 

0 

(+2) 

57 


404 

12200 

43157 

1 

(+3) 

60 


567 

21150 

165155 

5 

(+4) 

61 


566 

21450 

25153 

11 

(+5) 
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62 


565 

50 

24331 

0 

(+6) 

63 


454 

12150 

24431 

0 

(+7) 

64 


455 

20150 

65065 

1 

( + 10) 

65 


532 

20050 

125063 

5 

( + 11) 

66 


531 

26150 

65060 

15 

( + 12) 

67 


530 

26050 

125066 

5 

( + 13) 

70 


527 

14020 

101054 

15 

( + 14) 

71 


526 

10000 

103060 

10 

( + 15) 

72 


430 

50 

25351 

1 

READLOOPO 

73 


431 

50 

25151 

0 

READLOOP1 

74 


464 

50 

25250 

2 

TESTLOOP1 

75 


465 

22150 

65252 

11 

( + 1) 

76 


525 

20450 

65400 

14 

(+2) 

77 


466 

10150 

124503 

14 

(+3) 

100 


441 

50 

25151 

0 

(+4) 

101 


440 

24250 

65050 

5 

(+5) 

102 


524 

50 

24144 

0 

(+6) 

103 

b 

463 

50 

25145 

0 

WORDOBAOREAD 

104 


462 

22150 

65046 

15 

( + 1) 

105 


523 

22450 

65045 

.1 

(+ 2 ) 

106 


522 

10150 

124476 

14 

(+3) 

107 


437 

50 

25151 

0 

( + 4) 

110 


436 

24250 

65042 

11 

(+5) 

111 


521 

50 

24141 

0 

(+6) 

112 

b 

461 

50 

25140 

0 

WORD1BAOREAD 

113 


460 

24150 

65040 

1 

( + 1) 

114 


520 

22450 

65036 

5 

(+2) 

115 


517 

10150 

124473 

14 

(+3) 

116 


435 

50 

25151 

0 

( + 4) 

117 


434 

24250 

6G034 

15 

(+5) 

120 


516 

50 

24135 

0 

(+6) 

121 

b 

457 

50 

25134 

0 

WORD2BADREAD 

122 


456 

10150 

124467 

14 

( + 1) 

123 


433 

50 

25151 

0 

( + 2) 

124 


432 

12200 

43033 

1 

(+3) 

125 


515 

21150 

165031 

5 

( + 4) 

126 


514 

21450 

25026 

11 

( + 5) 

127 


513 

50 

24200 

0 

(+6) 

130 


400 

12150 

24461 

0 

( + 7) 

131 


401 

12174 

103157 

10 

( + 10) 

132 


564 

47 

27146 

1 

FILLBUF 

133 


563 

50150 

65144 

15 

( + 1) 

134 


562 

26050 

125142 

1 

(+2) 

135 


561 

12200 

43140 

15 

(+3) 

136 


560 

50 

24121 

0 

( + 4) 

137 


451 

22020 

101074 

11 

(+5) 

140 


536 

22020 

101073 

15 

(+6) 

141 


535 

24020 

101001 

1 

( + 7) 

142 


450 

12200 

45137 

15 

TRY 1 

143 


557 

50 

24114 

0 

( + 1) 

144 


447 

14150 

65105 

1 

(+2) 

145 


542 

22050 

125103 

11 

(+3) 

' 146 


541 

22050 

125101 

15 

( + 4) 

147 


540 

14200 

77076 

1 

(+5) 

150 


537 

24050 

12-6000 

1- 

(+ 6 ) 

151 


446 

12200 

51134 

15 

TRY2 

152 


556 

50 

24111 

0 

( + 1) 

153 


445 

14150 

124507 

14 

( + 2) 

154 


442 

14150 

65116 

5 

(+3) 

155 


547 

22050 

125114 

11 

(+4) 

156 


546 

22050 

125113 

15 

(+5) 

157 


545 

14200 

77110 

5 

(+6) 

160 


544 

24050 

125107 

1 

( + 7) 

161 


543 

15050 

125001 

15 

( + 10) 

162 


443 

14150 

65131 

11 

CHECKER01 

163 


554 

22050 

125127 

11 

( + 1) 

164 


553 

22050 

125125 

15 

( + 2) 

165 


552 

14200 

77123 

11 

(+3) 

166 


551 

24050 

125120 

1 

(+4) 

167 


550 

15050 

125001 

15 

(+6 y 

170 


444 

12200 

61132 

15 - 

-TRY3 

171 


555 

50 

24000 

1 

( + 1) 

172 


501 

50 

25224 

1 

(+2) 

173 


502 

22050 

125170 

10 

(+3) 

174 


474 

50 

25224 

1 

( + 4) 

175 


475 

22050 

125124 

14 

(+5) 
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176 

452 

50 

25224 

1 

(+6) 

177 

453 

24050 

125066 

1 

(+7) 

200 

533 

24200 

137001 

1 

( + 10) 

201 

500 

26147 

21071 

1 

BOTTOM 

202 

534 

50 

25401 

0 

( + 1) 

203 

512 

26150 

65023 

5 

RAND 

204 

511 

27174 

45020 

5 

( + 1) 

205 

510 

27174 

67016 

5 

(+2) 

206 

507 

27150 

65014 

11 

(+3) 

207 

506 

26050 

125400 

4 

(+4) 

210 

624 

47 

27047 

2 

READCSX 

211 

' 623 

50150 

65045 

16 

( + 1) 

212 

622 

26050 

125043 

2 

(+2) . 

213 

621 

176 

41041 

2 

(+3) 

214 

620 

20147 

21037 

6 

(+4) 

215 

617 

47 

36434 

2 

(+5) 

216 

616 

54150 

65033 

16 

(+6) 

217 

615 

20050 

125031 

16 

( + 7) 

220 

614 

0 

43026 

2 

( + 10) 

221 

613 

20147 

21025 

6 

( + 11) 

222 

612 

47 

35423 

2 

( + 12) 

223 

611 

54150 

65021 

16 

( + 13) 

224 

610 

22050 

125017 

2 

( + 14) 

225 

607 

0 

47014 

2 

( + 15) 

226 

606 

20147 

21013 

6 

( + 16) 

227 

605 

47 

35410 

2 

( + 17) 

230 

604 

54150 

65006 

16 

( + 20) 

231 

603 

22050 

125004 

6 

(+21) 

232 

602 

22162 

133003 

6 

(+22) 

233 

601 

26147 

21000 

2 

(+23) 

234 

600 

50 

25401 

0 

(+24) 

235 

640 

47 

27077 

2 

WRITECS 

236 

637 

50150 

65075 

16 

( + 1) 

237 

636 

26050 

125073 

2 

(+2) 

240 

635 

24150 

65070 

2 

(+3) 

241 

634 

22150 

25067 

12 

(+4) 

242 

633 

20147 

21064 

6 

(+5) 

243 

632 

47 

31463 

2 

(+6) 

244 

631 

22150 

25060 

16 

( + 7) 

245 

630 

20147 

21057 

6 

( + 10) 

246 

627 

47 

33454 

2 

( + 11) 

247 

626 

26147 

21053 

2 

( + 12) 

250 

625 

50 

25401 

0 

( + 13) 


Page 400: 251 locations used, 127 free 


RM: 


20 

1000 

LOWLOC 

21 


CURRENTLOC 

22 

6777 

HIGHLOC 

23 


RDO 

24 


ROl 

25 


RD2 

26 

177777 

WDO 

27 

177777 

WD1 

30 

17 

WD2 

31 

177777 

MDO 

32 

177777 

MD1 

33 

17 

MD2 

34 


RLINKO 

35 

123 

XA 

36 

33031 

CA 

37 


SAVEDXA 

40 

0 

PASSCOUNT 

41 

100 

MAXPASS 

42 


SUBTEST 

43 

0 

SHORTLOOP 

44 

1 

LOOPCONTROt 

45 

17 

PATTERNCHOICE 

46 

1 

PATTERNTRY 

47 

1 

CURRENTPATTERN 

50 

177777 

ONES 

51 

125252 

CHECKER1 

52 

52525 

CHECKERO 

53 

0 

TOGGLE 
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54 1 REVISION 

55 36 RUN-TIME 

56 RLC8 

Time: 8 seconds; 0 error(s), 0 warning(s), 11850 words free 
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;;;L DCS! xl og.MIDAS : 

Logger for LDCSex program 


; ;: 

By: C. Tseng 

Nov. 20 1979 


.start 


I. X AppendOutput EDCSEx . report; 

L X WriteMessage „**•*••**•* START EDCSEx Test : ; 

L X WriteDT; 

L X WriteMessage ***************.. . 

L X Skip .continue; 


.breakpoint L 
L 
L 
L 
I. 
L 
L 
l. 
I. 
L 
L 
I. 
L 
L 
L 


X AppendOutput EDCSEx.report; 
A18 SkipNE WORDOBAD; 

X Skip .wordObad; 

A18 SkipNE WORD1BAD; 

X Skip .wordlbad; 

A18 SkipNE WORD2BAD; 

X Skip .word2bad; 

A18 SkipNE WORDOBADREAD; 

X Skip .wordObadread; 

A18 SkipNE WORD1BADREAO; 

X Skip .wordlbadread; 

A18 SkipNE WORD2BADREAD; 

X Skip ,word2badread; 

A18 SkipNE PASSED-EDCSEX-TEST; 
X Skip .passtest; 


.notmybreak L 
I. 


X AppendOutput EDCSEx.report; 

X WriteMessage *** FAILed: Not at my breakpoint ~; 


I. X WriteMessage * Parity = 
R AO Vai; 

I X WriteMessage; 

L X WriteMessage ~; 


I. X WriteMessage ’ CIA = 
R A18 Val; 

L X WriteMessage; 

L X WrileMessage ~; 


L X WriteMessage ' CTASK = 
R A19 Val; 

I. X WriteMessage; 

L X WriteMessage ~; 


l X WriteMessage ’ APCTASK = 
R A17 Val; 

I. X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' APC a ; 

R A16 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

I. X WriteMessage ' TPC 3 ; 

R A13 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X CloseOutput; 

L X Exit; 


.wordObad 
. bad 


I X WriteMessage *** FAILed: at my Breakpoint 
L X WriteMessage * WORD 0 Bad ~; 

F X WriteMessage ’ SUBTEST = ; 

R B4 VaT; 

L X WriteMessage;* 

L X WriteMessage ~; 


L X WriteMessage * CURRENTLOC « 
R Cll Val; 

L X WriteMessage; 

L X WriteMessage -; 









F.DCSCxLog.midas 


l-Apr-80 15:38:05 


Page 2 


I X Wr i (.(.‘Message ' (‘ASSCOUNT = ; 

R 82 Val; 

L X Wr i teMessage: 

L X WriteMessage 

l. X Skip . continue: 

.wordlbad I. X Wr i teMossaye *** FAILed: at my Breakpoint 
L X WriteMessage * WORD 1 Bad 

L X BackSkip .bad; 

,word2bad L X WriteMessage *** FAILed: at my Breakpoint 
L X WriteMessage * WORD 2 Bad 

L X BackSkip .bad; 

.wordObadread L X WriteMessage *** FAILed: at my Breakpoint 

L X WriteMessage * WORD 0 READ Bad -; 

L X BackSkip .bad; 

.wordlbadread l X WriteMessage *** FAILed: at my Breakpoint 

L X WriteMessage * WORD 1 READ Bad ~; 

L X BackSkip .bad; 

. word2badread L X WriteMessage *** FAILed: at my Breakpoint 

L X WriteMessage * WORD 2 READ Bad 

L X BackSkip .bad; 

.passtest L X WriteMessage - PASSed EDCSEx Test : 

L X WriteDT; 

L X WriteMessage - ; 

L X Skip .continue; 

.continue I. X V/riteMessage ~; 

L X CloseOutput; 

L X DispIayOn; 

L X Conf irm; 

L X TimeOut 10000000; 

1. X Continue; 

L X Skip 2; 

L X ShowF.rror Program failed to CONTINUE.; 

L X BackSkip .notmybreak; 

L X DisplayOff; 

L X BackSkip .breakpoint; 





LDCSlx .miidas 


1-Apr-80 15:38:05 


Page 1 


l A19 Val 0 
l X Confirm 
L X load COCSEx; 

1 BO Addr REVISION 
l 131 Addr HUM-TIME 
L 132 Addr PASSCOUNT 
l B3 Addr MAXPASS 
l. B4 Addr SUBTEST 

L B9 Addr MDO; 

L BIO Addr WDO; 

L B11 Addr RDO; 

L B13 Addr MOt; 
l B14 Addr WDl; 

I B15 Addr RD1; 

L Bl7 Addr MD2; 

L B13 Addr WD2: 

L B19 Addr RD2; 

1 C9 Addr LOWLOC; 
l CIO Addr IIIGUI-OC; 

L Cll Addr CURRENILOC; 

I C13 Addr LOOPCONTROL 
L C14 Addr PATTERNCHOICE 
L C15 Addr SMORTLOOP 

L X DisplayOn; 

L X TiineOut 10000 
t. X SS GO 
L X Skip l 

L X ShowError Single-step stuck at GO 
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% 

*•* *** *** *** <DODiag>Rev-l>EDCym.mc Revision 1 Jan. 2, 1980 *** *** *** *** 

******** ************************************************************************************* 

*** EDCym.mc: Cycler Masker Test microcode 

*** Purpose: To Test all of the Cycler Masker functions except FixVA which is tested by EDTNF.mc 

*** Minimum Hardware: Standard 4 CPU boards. 

*** Approximate run time: 7 seconds. 

*** Written by: Tom Horsley, December 30, 1977 
*** Modified by: Bill Kennedy, February 22, 1978 
To add control store parity. 

*** Modified by: Bill Kennedy, March 2, 1978 
To move code off of Page 0. 

••• Modified by: Bill Kennedy, April 24, 1978 
To add panel Increments. 

»** Modified by: Chuck Thacker, May 29, 1978 
To improve readability. 

Note: if the FIELD test is run before EDCym, then CYM2 is useless, 

since the only difference between it and EDCym is that CYM2 does not 
use WFA and WFB to load the control store. Accordingly, CYM2 should be 
eliminated from the set of tests. 

*** Modified by: Mike Spaur, January 14, 1980 

To standardize documentation and install looping capabilities. 


* SubTest Descriptions: 

* SubTestO: Generate a random number that determines the Cycler Masker mode of 

operation. 

* SubTestl: Read the control store micro instruction at location 1100 and alter 

the FI and F2 fields so that they contain an 8 bit random number. Then 
calculate the new parity bit and insert the new instruction back Into 
control store location 1100. 

* SubTest^: Calculate what the result of the Cycler Masker operation should be 

and save the answer in the "myResult" register*. 

* SubTest3: Allow the cycler masker to execute the control store instruction 

at location 1100 and save the result in the "Result” register. 

* SubTest4: Compare the result of the hardeware operation (SubTest3) to the 

calculated result (SubTest2). 

* SubTestS: Examine the contents of the APC to see if it is correct. SubTest5 is only 

executed if the random F fields specify a dipatch type operation. 

*********************************************************************************************** 

* Breakpoints: 

* ResultBad: The hardware result of the Cycler Masker operation (Result) did not equal the 

calculated result (myResult). 

* APCBad: The contents of the APC (APCResult) did not equal the calculated result (myResult). 

* Passed-EDCym-Test: Passed all tests, and all passes. 


* ShortLoop Logic Analizer Sync Points at Control Store address: 

* ResulBad: Control Store address 1036 

* APCBad: Control Store address 1036 
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* Special Register Definitions: 

* ShortLoop: At any breakpoint the user has the option of changing the value of ShortLoop to 1, 

which will cause Subtest3 to loop endlessly. If ShortLoop is a zero then the program 
will proceed to the next test. 

* InnerLoopCounter: This register contains the number of passes through the mainloop. 

The mainloop is simply the sum of all of the sub tests. When InnerLoopCounter = 2**16 
all of the functions that are tested by EDCym have been tested exactly once. 

* PassCount: This register displays the number of completed passes of the entire EDCym test 

(2**16 Iterations of the mainloop). Also, the contents of this register Is the 
octal equivalent of the Maintenance Pannel display. 

* MaxPass: This register can be set by the user. It determines how many repetitions 

of the entire EDCym test will be made. 

* XA: This test is driven by a sequence of 16-bit random numbers. In each iteration of the 

mainloop, the random number is generated. The random number generator has been 
constructed so that it produces each number in the range of [0-64K] once and only 
once before repeating any number. Thus it is guaranteed to have exhausted all possible 
combinations of the fields derived from it when InnerLoopCounter reaches 2**16. 

XA[0:7] is used to define the Cycler Masker function through use of the FI and F2 
fields of the microinstruction. These fields are built up from XA as follows: 

FI » XA[0:3] 

F2 = XA[4:7] 

* Fnum: This register Is used to Load the FI & F2 fields. Fnum[0:7] = 0, and Fnum[10:17] a XA[0:7] 

This register is then used to decide which Cycler Masker function has been defined. 

There are six possible functions that are tested by the mainloop: 

Fnum = 0 to 206 The Load Field function (LDFTest) 

Fnum = 207 to 300 The Dispatch function (DispatchTest) 

Fnum = 301 to 317 The LeftShift function (LSHTest) 

Fnum * 320 to 336 The Left Cycle function (LCYTest) 

Fnum ■ 337 The Left Hand Mask function (LHMaskTest) 

Fnum = 340 The Zero function (ZeroTest) 

* Operand: This is a random 16 bit word that is used to simulate the operation of the Cycler 

Masker using adds and carries. Operand * XA + PassCount. 

**************************#*************************************«********:************ *********** 
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* INITIALIZATION: 

BUILTIN[INSERT, 24]; 

INSERT[D0LANG]; 

TITLE[Cyc:lerMaskerTester]; 

SET[MainPage, 3]; * Set page number for main part of program 

SET[SubPagel, 1]; * Set page number for first sub-part of program 

SET[SubPage2, 2]; * Set page number for first sub-part of program 


R-registers 


RV[PassCount,20,0]; 
RV[MaxPass,21,2]; 
RV£InnerLoopCounter,22]; 


* number of passes of the EDCym test executed 

* number of times EDCym is to repeat before breakpointing 

* number of passes of the mainloop (subtests 0 to 5) 


RV[ShortLoop,23,0]; 
RV[SubTes t,24]; 
RV[CheckAPC,25]; 


* 0 « continue on next test, 1 * loop on Subtest 3 

* current location of test 

* flag indicating whether the APC result is to be checked 


RV[CA,26]; 
RV[XA,27]; 


* used in random number generation, A*XA + CA 

* random number generated via A*XA + CA 


RV[Fnum,30]; 
RV[Qperand,31]; 
RV[NBits,32]; 
RV[LeftBit,33]; 
RV[bitNum,34]; 


* current cycle mask function being tested 

* word to be cycle masked 

* number of bits to be cycled or shifted 

* first bit of field to be operated on 

* loop counter in simulated shifts 


RV[CS0,35]; 
RV[CS1,36]; 
RV[CS2,37]; 
RV[CSP,40]; 
RV[Address,41]; 


* temporary storage for first word of a control store location 

* temporary storage for second word of a control store location 

* temporary storage for third word of a control store location 

* temporary register for control store parity calculations 

* location of CS instruction to be stuffed 


RV[LDFTest,42]; 
RV[DispatchTest,43]; 
RV[LSHTes t,44]; 
RV[LCYTest,45]; 
RV[LHMaskTest,46]; 
RV[ZeroT est,47]; 


* number of times LDF test has been executed 

* number of times Dispatch test has been executed 

* number of times LSH test has been executed 

* number of times LCY test has been executed 

* number of times LHMask test has been executed 

* number of times Zero test has been executed 


RV[myResuil t, 50] ; 
RV[Result.51]; 
RV[APCResult,52]; 


* result of simulated function 

* result of hardware function 

* contents of APC&APCTASK after test 


RV[StuffImp,53]; 
*RV[ tmp , 54] ; 
RV[tmp2,55]; 

RV[tmp3,56]; 


* used in the stuff operations 

* temporary register 

* temporary register 

* temporary register 


RV[Rev1sion,57,1]; 
RV[Run-Time,60,7]; 


* current revision of EDCym 

* the octal number of seconds it takes 

* to complete two passes of the EDCym test 
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***************************************************** 

*** MAIN routine 

ONPAGE[MainPage]; 

go: 

start: XA «- AND@[0377, 123]C; 

XA - (XA) OR (AND®[177400, 123]C); 

CA «- AND0[O377, 33031]C; 

CA ♦- (CA) OR (AND6[177400. 33031]C); 

CLEARMPANEL; 

InnerLoopCounter +• 0C; 

PassCount *• 0C; 

LDFTest *- OC; 

DispatchTest «* OC; 

LSHTest «■ OC; 

LCYTest «- OC; 

LHMaskTest *■ OC; 

ZeroTest *• OC; 

Address «•' AND0[O377 , 1100]C; 

Address «- (Address) OR (AND9[177400, 1100]C); 
GOTO[mainLoop]; 

bigLoop: INCMPANEL; 

PassCount «- (PassCount) + 1; 
t «- (MaxPass); 

LU «- (PassCount) - (t); 

GOTO[Passed-EDCym-Test, ALU >= 0]; 
GOTO[mainLoop]; 

Passed-EDCym-Test: BREAKPOINT; 

PassCount OC; 

*** SUBTEST 0 
ma inloop: 

SubTest «■ OC; 

CheckAPC «- OC; 

InnerLoopCounter *■ (InnerLoopCounter) + 1; 
GOTO[bigLoop, CARRY]; 


t *■ XA; 

t - (LSH[XA, 2]) + t; 
t - (LSH[XA, 13]) + t; 
t «- (CA) + t; 

XA «- t; 

*** SUBTEST 1 
SetVars: SubTest «• 1C; 

t LDF[XA, 0. 10]; 
Fnum *■ t; 

t *- PassCount; 
t «■ (XA) + t; 

Operand *• t; 

t (Address); 

CS2 *• t; 

GetCS: t «- OC; 

APCTASK&APC «- (CS2); 
READCS; 
t ♦- CSData; 

CSO t; 
t «- 1C; 

APCTASK&APC *• (CS2); 
READCS; 
t «- CSData; 

CS1 t; 
t *• 3C; 

APCTASK&APC (CS2); 


* This is the psuedo random number algorythm 

* XA (new) = [ [ 4005 * XA(old) ] + CA ] modulo 2**16 


* use CS2 for a temporary register until end 


* These lines of code read the control store data 

* at adress 1100 into the variables CS0.CS1 & CS2. 
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READCS; 
t *■ CSOata; 

CS2 «- t; 

CS2 4 - RSH[CS2, 14]; 


ChangeFlelds: 

t «- LDFfFnum, 10, 4]; * Extract the FI field from Fnum 

Tmp «- t; 

StuffTmp 4. 0RS[LSHIFT[14, 4], SUB[4, 1]]C; 

CYCLECONTROL «■ StuffTmp; 

t ♦- WFA[Tmp]; * These four lines of code change the FI field in CSO 

CSO ♦- WFB[(CS0) OR t]; * so that it is identical to Fnum[10:13] 

t «- LDF[Fnum, 14, 4]; * Extract the F2 field from Fnum 

Tmp <- t; 


StuffTmp «- OR0[LSHIFT[2, 4], SUB[4, 1]]C; 

CYCLECONTROL StuffTmp; 

t «■ WFA[Tmp]; * These four lines of code change the F2 field in CS1 

CS1 «- WFB[(CS1) OR t]; * so that is is identical to Fnum[14:17] 


CalcPar: t < 
CSP 
t <- 
CSP 
t <- 
CSP 
CSP 
CSP 
CSP 
t 4- 
CS1 


■CSO; * 

t; * 

CS1; * 

4- t'+ (CSP) XOR (t); * 

(LDF[CS2,14,4]) XOR (t); * 

«- t - (LDF[CSP,0,10]) XOR (t); 

<- t 4* <LDF[CSP,10,4]) XOR (t); 

4- t 4- (LDF[CSP,14,2]) XOR (t); 

- t (LDF[CSP, 16.1]) XNOR (t); 


Calculate the new control store parity 
put CSO in the temp. reg. 
get CS1 

exclusive or the first two CS words 
now exclusive or the third CS word with the result 
* now start halfing process to get parity 


(LDF[CSP,17,1]); 
(CS1) XOR (t); 


Do last part and complement it 
put parity bit in the t-register 

exclusive or the parity bit into bit 31 of CS (15 of CS1) 


WriteCS: 


t 4- (CS2); 
LU 4- (CSO); 
APCTASK&APC 
WriteCS0&2; 
LU - (CS1); 
APCTASK&APC 
WriteCSl; 


«- (Address); 


(Address 


* Put the new instruction back into the control Store 

* writeCS -- write control store location 


LOADPAGE[SubPagel]; * Page (change to page SubPagel) 

GOTOP[.+1]; 

ONPAGE[SubPagel]; 

*** SUBTEST2 
SubTest2: 

SubTest ♦* 2C; 

t ♦- 207C; * last LDF + 1 

LU 4 - (Fnum) - (t); 

GOTO[FnumGT206, ALU >* 0]; 

LU 4 - (Fnum) - (20C); * LDF Tests 

GOTO[FnumGT017, ALU >* 0]; 

NBits 4 - 1C; * 20 1-bit fields 

t «- Fnum; 

LeftBit ♦- t; 

GOTO[myLDF]; ' " - r 

FnumGT017: 

LU 4- (Fnum) - (37C); 

GOTO[FnumGT036, ALU >= 0]; 

NBits 4- 2C; * 17 2-bit fields 

t ♦- (Fnum) - (20C); 

LeftBit 4- t; 

GOTO[myLDF]; 

FnumGT036: 

LU 4 - (Fnum) - (55C); 

GOTO[FnumGT054, ALU >* 0]; 

NBits «■ 3C; • 16 3-bit fields 

t 4 - (Fnum) - (37C); 
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LeftBIt «- t; 

60T0[myLDF]; 

FnumGT054: 

LU «- (Fnum) - (72C); 
GOTO[FnumGT071, ALU >« 0]; 

NO its «- 4C; 
t «- (Fnum) - (55C); 

LeftBit «- t; 

GOTO[myLDF]; 

FnumGT071: 

LU «- (Fnum) - (106C); 
GOTO[FnumGT105, ALU >= 0]; 

NBitS «- 5C; 
t «■ (Fnum) - (72C); 

LeftBit «■ t; 

60T0[myLDF]; 

FnumGTIOB: 

LU <- (Fnum) - (121C); 
GOTO[FnumGT120, ALU >* 0]; 

NBitS *■ 6C; 
t «- (Fnum) - (106C); 
LeftBit +* t; 

GOTO[myLDF]; 

FnumGT120: 

LU «- (Fnum) - (133C); 

GOTO[FnumGT132, ALU >» 0]; 

NBitS «■ 7C; 
t «• (Fnum) - (121C); 
LeftBit *■ t; 

GOTO[myLDF]; 

FnumGT132: 

LU «- (Fnum) - (144C); 
GOTO[FnumGT143, ALU >= 0]; 

NBitS IOC; 
t «- (Fnum) - (133C); 
LeftBit ♦* t; 

GOTO[inyLDF] ; 

FnumGT143: 

LU - (Fnum) - (154C); 

GOTO[FnumGT153. ALU >» 0]; 

NBitS «- 11C; 
t «■ (Fnum) - (144C); 
LeftBit *• t; 

GOTO[myLDF]; 

FnumGT153: 

LU «- (Fnum) - (163C); 
GOTO[FnumGT162, ALU >» 0]; 

NBitS «■ 12C; 
t «- (Fnum) - (154C); 
LeftBit *■ t; 

GOTO[myLDF]; 

FnumGT162: 

LU «- (Fnum) - (171C); 
GOTO[FnumGT170, ALU >= 0]; 

NBits «- 13C; 
t - (Fnum) - (163C); 
LeftBit «- t; 

GOTO[myLDF]; 


* 15 4-bit fields 


• 14 5-bit fields 


* 13 6-bit fields 


* 12 7-bit fields 


* 11 10-bit fields 


* 10 11-bit fields 


* 7 12-bit fields 


* 6 13-bit fields 


FnumGT170: 
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LU «• (Fnum) - (176C); 

GOTO[FnumGT175, ALU >= 0]; 

NBits «- 14C; * 5 14-bit fields 

t «- (Fnum) - (171C); 

LeftBit «- t; 

G0T0[myLDF]; 

FnumGT175: 

t 2020; * done this way due to sign extend on arithmetic 

LU «■ (Fnum) - (t); 

GOTO[FnumGT201, ALU >* 0]; 

NBits «- 15C; * 4 15-bit fields 

t «- (Fnum) - (176C); 

LeftBit <- t; 

GOTO[myLDF]; 

FnumGT201: 

t «- 205C; * done this way due to sign extend on arithmetic 

LU «* (Fnum) - (t); 

GOTO[FnumGT204, ALU >* 0]; 

NBits «• 16C; * 3 16-bit fields 

t *■ 202C; 
t *■ (Fnum) - (t); 

LeftBit «- t; 

GOTO[myLDF]; 

FnumGT204: 

NBits «- 17C; * 2 17-bit fields 

t «- 205C; 
t *■ (Fnum) - (t); 

LeftBit *• t; 

9 

myLDF: t *• (Operand); 
tmp3 «■ t; 

t <- (1C); 
bitNum t; 

LDFupperLoop: 

t (LeftBit); 

LU - (bitNum) - (t) - 1; 

G0T0[LDFReset, ALU >« 0]; 

t *• (tmp3); 
tmp3 *• (tmp3) + t; 

bitNum *■ (bitNum) + 1; 

G0T0[LDFupperLoop]; 

LDFReset: 

t (NBits); 
tmp2 *■ t; 
myResult *• 0C; 
t <- (tmp3); 
tmp *■ t; 
t «■ (1C); 
bitNum t; 

LDFlowLoop: 

t (tmp2); 

LU «- (bitNum) - (t) - 1; 

G0T0[DoneWithFakeLDF, ALU >» 0]; 

t (myResult); 
myResult *■ (myResult) + t; 
t *■ (tmp); 
tmp (tmp) + t; 

G0T0[LDFincBitNum, N0CARRY]; 
myResult *■ (myResult) + 1; 

LDFincBitNum: 

bitNum (bitNum) + 1; 

G0T0[LDFlowLoop]; 
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OoneWithFakeLDF: 

LDFTest - (LDFTest) + 1; 
LOADPAGE[SubPage2]; 
GOTOP[hardwareDoIt]; 

FnumGT206: 

LOADPAGE[SubPage2]; 

G0T0P[.+1]; 
0NPAGE[SubPage2]; 

t «- 301C; 

LU «• (Fnum) - (t); 
GOTO[FnumGT300, ALU >» 0]; 

t <- 227C; 

LU «■ (Fnum) - (t); 

GOT0[FnumGT226, ALU >= 0]; 

NBItS <- 1C; 
t «• 207C; 
t «• (Fnum) - (t); 

LeftBit t; 
GOTO[myD1spatch]; 

FnumGT226: 

t «• 246C; 

LU *• (Fnum) - (t); 

GOTO[FnumGT245, ALU >= 0]; 

NBitS «* 2C; 
t - 227C; 
t <- (Fnum) - (t); 

LeftBit «* t; 
GOTO[myDi$patch]; 

FnumGT245: 

t +• 264C; 

LU «■ (Fnum) - (t); 
GOTO[FnumGT263, ALU >= 0]; 

NBitS - 3C; 
t «■ 246C; 
t «- (Fnum) - (t); 

LeftBit «■ t; 
GOTO[myDispatCh]; 

FnumGT263: 

NBitS «- 4C; 
t <- 264C; 
t *- (Fnum) - (t); 

LeftBit *• t; 

myD.ispatch: 

t *■ (Operand); 
tmp3 *• t; 

t (1C); 
bitNum *" t; 

DispUpperLoop: 

t (LeftBit); 

LU «- (bitNum) - (t) - 1; 
G0T0[DispReset, ALU > a 0]; 

t *■ (tmp3); 
tmp3 *■ (tmp3) + t; 

bitNum *- (bitNum) + 1; 
GOTO[DispUpperLoop]; 

DispReset: 

t - (N8its); 
tmp2 t; 
myResult «■ 0C; 
t «- (tmp3); 


* Page (change to page SubPage2) 


• last DISPATCH + 1 


* Dispatch Tests 


* 20 1-bit fields 


* 17 2-bit fields 


* 16 3-bit fields 


* 15 4-bit fields 
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itmp *■ t; 
t - (1C); 
bltNum *• t; 

DIspLowLoop: 

t «- (tmp2); 

I.U «- (bitNum) - (t) - 1; 
G0T0[DoneWithFakeD1sp, ALU > 3 0]; 

it (myResult); 
myResult (myResult) + t; 

It «* (tmp); 
itmp «• (tmp) + t; 
GOTO[DispIncBitNum, NOCARRY]; 
myResult *• (myResult) + 1; 

DispIncBitNum: 

bltNum «- (bitNum) + 1; 
GOTO[DispLowLoop]; 

DoneWithFakeDisp: 

CheckAPC «■ 1C; 

DispatchTest «* (DispatchTest) + 1 
GOTO[hardwareDoIt]; 

FnumGT300: 

t <- 320C; * 

LU <- (Fnum) - (t); 

G0T0[FnumGT317, ALU >= 0]; 

t «- 300C; * 

t *■ (Fnum) - (t); 

NBits *■ t; 

t ♦- (Operand); 
myResult *■ t; 

t - (1C); 
bitNum t; 

LSHloop: t «- (NBits); 

LU «- (bitNum) - (t) - 1; 
G0T0[DoneWithFakeLSH, ALU >= 0]; 

t «- (myResult); 
myResult ♦- (myResult) + t; 

bitNum «- (bitNum) + 1; 
GOTO[LSHloop]; 

DoneWithFakeLSH: 

LSIITest 4- (LSHTest) + 1; 

) GOTO[hardwareDoIt]; 

FnumGT317: 

t «• 337C; * 

LU *• (Fnum) - (t); 

G0T0[FnumGT336, ALU >= 0]; 

t «■ 317C; * 

t *• (Fnum) - (t); 

NBits t; 

t *■ (Operand); 
myResult <• t; 

t - (1C); 
bitNum «- t; 

LCYloop: t (NBits); ■»— 

LU (bitNum) - *(t) - if 
GOTO[DoneWithFakeLCY, ALU >= 0]; 

t ♦- (myResult); 

myResult «- (myResult) + t; 

G0T0[LCYincBitNum, NOCARRY]; 


last LSH + 1 

LSH Tests 


last LCY + 1 

LCY Tests 
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myResult «- (myResult) + 1; 

LCYincBitNum: 

bitNum *• (bitNum) + 1; 

GOTO[LCYloop]; 

DoneWithFakeLCY: 

LCYTest <- (LCYTest) + 1; 

G0T0[hardware0oIt]; 

FnumGT336: 

t «- 337C; * LHMASK function 

LU *■ (Fnum) - (t); 

G0T0[FnumNeq337» ALU #0]; 

FnumEq337: 

t 4- (operand) AND (177400C); * LHMASK Test 

myResult «• t; 

LHMaskTest «- (LHMaskTest) + 1; 

G0T0[hardwareDoIt]; 

FnumNeq337: 

t <- 340C; * ZERO fuhction 

LU - (Fnum) - (t); 

GOTO[FnumNotUseful, ALU # 0]; 

FnumEq340: 

myResult «- 0C; * ZERO Test 

ZeroTest «- (ZeroTest) + 1; 

GOTO[hardwareDoIt]; 

FnumNotUseful: * untested functions 341 - 377 

LOADPAGE[MainPage]; 

G0T0P[mainLoop]; 

f 

HI: NOP; * resolves a branching conflict 

H2: NOP; * resolves a branching conflict 

*** SUBTEST 3 
hardwareDoIt: 

TASK; 

SubTest +■ 3C; 
t «- (Operand); 

Result *■ t; 

Result *■ ZERO[Result], AT[1100]: * Does not do the ZERO function because FI 

* and F2 fields of location 1100 have been altered 

t «- APC&APCTASK; * save this for dispatch test 

APCResult «- t; 

ShortLoop ShortLoop, GOTO[.+2,R EVEN]; * Test for ShortLoop option 
GOTO[hardwareDoIt]; * ShortLoop selected 

NOP; * resolves a branching conflict 

*** SUBTEST 4 
SubTest4: 

SubTest «- 4C; 
t *■ Result; 

LU *■ (myResult) (t); 

GOTO[SubTest5, ALU =0]; 

ResultBad; BREAKPOINT; 

ShortLoop *■ ShortLoop, G0T0[.+2,R EVEN]; * Test for ShortLoop option 
G0T0[H1]; * ShortLoop selected 

NOP; * resolves a branching conflict 

*** SUBTEST 5 
SubTest5: 

SubTest «* 5C; 

LU «■ (CheckAPC); 
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GOTO[AllDone, ALU * 0]; 
t «- APCResult; 

LU ♦* (myResult) - (t); 

GOTO[APCOK. ALU = 0]; 

APCBad: BREAKPOINT; 

ShortLoop ShortLoop, G0T0[.+2,R EVEN]; * Test for ShortLoop option 
GOTO[H2]; * ShortLoop selected 

* resolves a branching conflict 

* resolves a branching conflict 

AllDone: LOAOPAGE[MainPage]; 

GOTOP[mainLoop]; 

END; 


NOP; 

APCOK: NOP; 



EDCYM 



XEROX 

D(0) 

PROGRAM NAME 

DOCUMENTATION FILE 

DESIGNER 

REV 

DATE 

PAGE 

ED 

Diagnostic 

EDCYM 

EDCymOl .sil 

Spaur 

1 

1/8/80 

01 













SubTest2 


SubTest2: 












FnumGTI 53: 


Is Fnum >= 163C? 


yes 

FnumGTI 62: \ 


yes 

FnumGTI 70: 


yes 

FnumGT175: > 


yes 

FnumGT201: 


FnumGT204: 

2 17-bit fields 


NBits = 17C 
LeftBit = Fnum • 205C 


7 12-bit fields _ 

, NBits = 12C 
LeftBit s Fnum - 154C 




NBits = 13C 
LeftBit = Fnum - 163C 


NBits = 14C 
LeftBit = Fnum - 171C 


NBits a ISC 
LeftBit = Fnum - 176C 


NBits a 16C 
LeftBit a Fnum • 202C 


myLDF: 


tmp3 a operand 
BitNum a 1C 


Double Tmp3 
Increment BitNum 


is BitNum > a LeftBit ♦ 1 V 


yes 


LDFreset: 


tmp2 a NBits 
myResult a OC 
tmp a tmp3 
BitNum a 1C 


LDFLowLoop 
Pg. 04 


XEROX 

D(0) 

PROGRAM NAME 

DOCUMENTATION FILE 

DESIGNER 

REV 

DATE 

PAGE 

ED 

Diagnostic 

EDCym 

EDCym03.sil 

Spaur 

1 

1/8/80 

03 






















LDFLowLoop: 


yes 


DoneWithFakeLDF: 

LDFTest a LDFTest ♦ 1 


HardwareDoit 
Pg. 07 


lsBltNum>= tmp2 + 1? 


Double myResult 
Double tmp 


LDFincBitNum: 


Increment BitNlum 


Increment myResult 


FnumGT206: 

r ' 

( Is Fnum > = 301C? 
X / 

/ ' 

( Is Fnum >= 227C? 

yes 

FnumGT226: v 

-- 

( Is Fnum > = 246? 
yes 

FnumGT245: 

—- 

( Is Fnum >* 264 ? 


^ yes 

^ FnumGT30o\ 
Pg. 05 / 


20 1-bit fields 

r - 

NBits a 1C 

/ 

LeftBit a Fnum - 207C 


17 2-bit fields 

^ no 

. NBttS a 2C 

LeftBit a Fnum - 227C 


16 3-bit fields _ 

NBits = 3C 

Left Bit a Fnum - 246C 


FnumGT263: 

15 4-bit fields 


NBits a 4C 

LeftBit a Fnum - 264C 


myDispatch 
Pg. 05 


XEROX D(0) PROGRAM NAME 

ED Diagnostic EDCym 


DOCUMENTATION FILE 

EDCym04.sil 


DESIGNER REV DATE 

Spaur 1 1/8/80 














myDispatch: 
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HardwareDoit: 

[task 


\r 


Force the instuction at control Store location 1 TOO to be executed. 

Store the result in the "Result" register 

Store the APC contents in the "APCResuit" register 


ShortLoop 
selected ? 


yes 


SubTest4 


SubTest4: 




Result = myResult ? 


yes 


SubTest5 


SubTest5: 


K- 


±. 


yes 


CheckAPC = 0? 


.myResult = APCResuit? 


yes 


t. 


■M 


APCOK: 
AIIDo ne: ^ 


mainLoop 
Pg. 01 


ResultBad: 

-^Tbreakpoint] 

nr 


A 


ShortLoop 
selected ? 


yes 


J' 


APCBad:__ 

■^breakpoint] 

^ X. _ 


ShortLoop 
.selected ? 


yes 

















PARITY 

0 

REVISION 

1 

COMM-ER0 

0 

CYCLEC0NTR0L 

377 

RUN-TIME 

7 

C0MM-ER1 

0 

PCXRE8 

16 

PAS3C0UNT 

0 

C0MM-ER2 

0 

♦PCFREG 

6 

MAXPASS 

2 

BOOT-ERR 

0 

D6REG 

15 

SUBTEST 

0 

*B00TREA80N 

40 

SBREG 

17 



MEMSYNDROME 

170167 

MNBR 

5003 





♦SSTKP 

377 

*XA 

123 

MYRESULT 

0 

STKP 

0 

FNUM 

0 

RESULT 

0 

*ALURESULT 

3 

OPERAND 

0 

APCRESULT 

0 

SALUF 

0 





T 20 

7000 

INNERLOOPCOUN 

0 

CS0 

0 

AATOVA 

0 



CS1 

0 

TPC 20 

7777 



CS2 

0 

CALLER ILCH+7216 

LDFTEST 

0 

CSP 

0 

*PA8E 

3 

DISPATCHTEST 

0 



*APC 

7011 

LSHTEST 

0 

SHORTLOOP 

0 

*APCTASK 

16 

LCVTEST 

0 



:+: C IA 

80+1 

LHMASKTEST 

0 



CTASK 

0 

ZEROTEST 

0 




Loaded: EDCVM Time: 09.31 


Step at 0:80, BP at 0:80+1 
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MicroD 8.6 (OS 16) of April 27, 1979 
at 20-Feb-80 8:22:11 

microd.run EDCym 


EDCym.DIB 561b instructions written 20-Feb-80 8:21:02 

Total of 561b instructions 

Checking for errors... 

Linking... 

Building allocation lists... 

Assigning locations... 

561b instructions in rings involving ONPAGE or AT 
Reloading binaries... 

Checking assignment... 

Writing .MB file... 

Writing 1isting... 

IM: 


Imag 

Real 

WO 

W1 

W2 

Symbol 

EDCym. 

DIB: 





0 

1404 

22005 

107060 

15 

GO START 

1 

1530 

22320 

101057 

15 

( + 1) 

2 

1527 

22001 

123055 

11 

(+2) 

3 

1526 

22323 

115053 

11 

(+3) 

4 

1525 

47 

7051 

1 

(+4) 

5 

1524 

20020 

101046 

11 

(+5) 

6 

1523 

20020 

101044 

1 

(+6) 

7 

1522 

10020 

101043 

11 

( + 7) 

10 

1521 

10020 

101041 

15 

( + 10) 

11 

1520 

12020 

101037 

1 

( + 11) 

12 

1517 

12020 

101035 

5 

( + 12) 

13 

1516 

12020 

101033 

11 

( + 13) 

14 

1515 

12020 

101031 

15 

( + 14) 

15 

1514 

10004 

101026 

5 

( + 15) 

16 

1513 

10320 

105024 

5 

( + 16) 

17 

1512 

50 

25023 

1 

( + 17) 

20 

1401 

47 

5023 

0 

8IGL00P 

21 

1411 

21050 

125020 

0 

( + 1) 

22 

1410 

20150 

65017 

4 

(+2) 

23 

1407 

21450 

25015 

0 

(+3) 

24 

1406 

50 

24205 

0 

( + 4) 

25 

1403 

50 

25023 

1 

(+5) 

26 

b 1402 

50 

25012 

0 

PASSED-EDCYM-TEST 

27 

1405 

20020 

101022 

1 

(+1) 

30 

1511 

22020 

101020 

1 

MAINLOOP 

31 

1510 

22020 

101017 

5 

( + 1) 

32 

1507 

21050 

125015 

11 

(+2) 

33 

1506 

50 

24002 

0 

(+3) 

34 

1400 

22150 

65013 

15 

(+4) 

35 

1505 

23174 

45010 

15 

(+5) 

36 

1504 

23174 

67007 

15 

(+6) 

37 

1503 

23150 

65004 

11 

(+7) 

40 

1502 

22050 

125003 

15 

( + 10) 

41 

1501 

22000 

103001 

1 

SETVARS 

42 

1500 

22165 

67177 

14 

( + 1) 

43 

1477 

24050 

125174 

0 

(+2) 

44 

1476 

20150 

65172 

0 

(+3) 

45 

1475 

23150 

65171 

14 

(+4) 

46 

. 1474 

24050 

125167 

4 

(+5) 

47 

1473 

10150 

65164 

4 

(+6) 

50 

1472 

26050 

125162 

14 

( + 7) 

51 

1471 

20 

41161 

0 

GETCS 

52 

1470 

26147 

21156 

14 

( + 1) 

53 

1467 

47 

35554 

0 

(+2) 

54 

1466 

54150 

65153 

14 

(+3) 

55 

1465 

26050 

125150 

4 

(+4) 

56 

1464 

0 

43146 

0 

(+5) 

57 

1463 

26147 

21144 

14 

(+6) 

60 

1462 

47 

35543 

0 

(+7) 

61 

1461 

54150 

65141 

14 

( + 10) 
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62 

1460 

26050 

125136 

10 

(+11) 

63 

1457 

0 

47135 

0 

(+12) 

64 

1456 

26147 

21133 

14 

(+13) 

65 

1455 

47 

35531 

0 

(+14) 

66 

1454 

54150 

65127 

14 

( + 15) 

67 

1453 

26050 

125125 

14 

( + 16) 

70 

1452 

26162 

133122 

14 

( + 17) 

71 

1451 

24163 

53120 

0 

CHANGEFIELDS 

72 

1450 

16050 

125116 

0 

( + 1) 

73 

1447 

14014 

107114 

14 

(+2) 

74 

1446 

14150 

11113 

14 

(+3) 

75 

1445 

16151 

65110 

0 

(+4) 

76 

1444 

26353 

125106 

4 

(+5) 

77 

1443 

24163 

63104 

0 

(+6) 

100 

1442 

16050 

125102 

0 

( + 7) 

101 

1441 

14002 

107101 

14 

( + 10) 

102 

1440 

14150 

11077 

14 

( + 11) 

103 

1437 

16151 

65074 

0 

( + 12) 

104 

1436 

26353 

125073 

10 

( + 13) 

105 

1435 

26150 

65071 

4 

CALCPAR 

106 

1434 

10050 

125066 

0 

( + 1) 

107 

1433 

26150 

65065 

10 

(+2) 

110 

1432 

10450 

165063 

0 

(+3) 

111 

1431 

26463 

63061 

14 

(+4) 

112 

1430 

10465 

167057 

0 

(+5) 

113 

1427 

10463 

153055 

0 

(+6) 

114 

1426 

10461 

171052 

0 

( + 7) 

115 

1425 

10760 

175051 

0 

( + 10) 

116 

1424 

10160 

77046 

0 

( + 11) 

117 

1423 

26450 

125044 

10 

( + 12) 

120 

1422 

26150 

65043 

14 

WRITECS 

121 

1421 

26150 

25040 

4 

( + 1) 

122 

1420 

10147 

21036 

4 

(+2) 

123 

1417 

47 

31434 

0 

(+3) 

124 

1416 

26150 

25032 

10 

(+4) 

125 

1415 

10147 

21030 

4 

(+5) 

126 

1414 

47 

33427 

0 

(+6) 

127 

1413 

45 

3024 

0 

( + 7) 

130 

1412 

50 

25110 

0 

( + 10) 

131 

444 

22000 

105001 

2 

SUBTEST2 

132 

600 

10 

57176 

1 

( + 1) 

133 

577 

25450 

25174 

1 

(+2) 

134 

576 

50 

24304 

0 

(+3) 

135 

443 

25401 

1173 

1 

( + 4) 

136 

575 

50 

24265 

0 

(+5) 

137 

433 

24000 

103005 

11 

(+6) 

140 

502 

24150 

65002 

1 

( + 7) 

141 

501 

24050 

125000 

15 

( + 10) 

142 

500 

50 

25176 

0 

( + 11) 

143 

432 

25401 

37170 

1 

FNUMGT017 

144 

574 

50 

24260 

0 

( + 1) 

145 

431 

24000 

105012 

11 

( + 2) 

146 

505 

25401 

41010 

1 

(+3) 

147 

504 

24050 

125006 

15 

( + 4) 

150 

503 

50 

25176 

0 

(+5) 

151 

430 

25402 

33166 

1 

FNUMGT036 

152 

573 

50 

24255 

0 

( + 1) 

153 

427 

24000 

107020 

11 

(+2) 

154 

510 

25401 

77016 

1 

r+3) 

155 

507 

24050 

125014 

15 

(+4) 

156 

506 

50 

25176 

0 

(+5) '• 

157 

426 

25403 

25165 

1 

FNUMGT054 

160 

572 

50 

24250 

0 

( + 1) 

161 

425 

24000 

111027 

11 

(+2) 

162 

513 

25402 

73024 

1 

(+3) 

163 

512 

24050 

125022 

15 

( + 4) 

164 

511 

50 

25176 

0 

(+5) 

165 

424 

25404 

15162 

1 

FNUMGT071 

166 

571 

50 

24244 

0 

( + 1) 

167 

423 

24000 

113034 

11 

(+2) 

170 

516 

25403 

65033 

1 

(+3) 

171 

515 

24050 

125030 

15 

(+4) 

172 

514 

50 

25176 

0 

(+5) 

173 

422 

25405 

3161 

1 

FNUMGT105 

174 

570 

50 

24241 

0 

( + 1) 

175 

421 

24000 

115043 

11 

(+2) 
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176 

521 

25404 

55040 

1 

(+3) 

177 

520 

24050 

125036 

15 

( + 4) 

200 

517 

50 

25176 

0 

(+5) 

201 

420 

25405 

27157 

1 

FNUMGT120 

202 

567 

50 

24235 

0 

( + 1) 

203 

417 

24000 

117050 

11 

(+2) 

204 

524 

25405 

43046 

1 

(+3) 

205 

523 

24050 

125044 

15 

(+4) 

206 

522 

50 

25176 

0 

(+5) 

207 

416 

25406 

11154 

1 

FNUMGT132 

210 

566 

50 

24230 

0 

( + 1) 

211 

415 

24000 

121056 

11 

( + 2) 

212 

527 

25405 

67054 

1 

(+3) 

213 

526 

24050 

125053 

15 

(+4) 

214 

525 

50 

25176 

0 

(+5) 

215 

414 

25406 

31153 

1 

FNUMGT143 

216 

565 

50 

24224 

0 

( + 1) 

217 

413 

24000 

123064 

11 

(+2) 

220 

532 

25406 

51062 

1 

(+3) 

221 

531 

24050 

125060 

1.5 

(+4) 

222 

530 

50 

25176 

0 

(+5) 

223 

412 

25407 

7151 

1 

FNUMGT153 

224 

564 

50 

24221 

0 

( + 1) 

225 

411 

24000 

125073 

11 

(+2) 

226 

535 

25406 

71071 

1 

(+3) 

227 

534 

24050 

125066 

15 

(+4) 

230 

533 

50 

25176 

0 

(+5) 

231 

410 

25407 

23146 

1 

FNUMGT162 

232 

563 

50 

24214 

0 

( + 1) 

233 

407 

24000 

127101 

11 

(+2) 

234 

540 

25407 

47076 

1 

( + 3) 

235 

537 

24050 

125074 

15 

(+4) 

236 

536 

50 

25176 

0 

(+5) 

237 

406 

25407 

35144 

1 

FNUMGT170 

240 

562 

50 

24211 

0 

( + 1) 

241 

405 

24000 

131106 

11 

(+2) 

242 

543 

25407 

63105 

1 

(+3) 

243 

542 

24050 

125102 

15 

( + 4) 

244 

541 

50 

25176 

0 

(+5) 

245 

404 

10 

45143 

1 

FNUMGT175 

246 

561 

25450 

25141 

1 

( + 1) 

24? 

560 

50 

24205 

0 

(+2) 

250 

403 

24000 

133115 

11 

(+3) 

251 

546 

25407 

75113 

1 

(+4) 

252 

545 

24050 

125110 

15 

(+5) 

253 

544 

50 

25176 

0 

(+6) 

254 

402 

10 

53136 

1 

FNUMGT201 

255 

557 

25450 

25135 

1 

( + 1) 

256 

556 

50 

24200 

0 

(+2) 

257 

401 

24000 

135125 

11 

(+3) 

260 

552 

10 

45123 

1 

(+4) 

261 

551 

25450 

65120 

1 

(+5) 

262 

550 

24050 

125116 

15 

(+6) 

263 

547 

50 

25176 

0 

( + 7) 

264 

400 

24000 

137133 

11- 

FNUMGT204 

265 

555 

10 

53130 

1 

( + 1) 

266 

554 

25450 

65126 

1 

(+2) 

267 

553 

24050 

125177 

14 

(+3) 

270 

477 

24150 

65174 

4 

MYLDF 

271 

476 

16050 

125172 

10 

( + 1) 

272 

475 

0 

43170 

0 

(+2) 

273 

474 

26050 

125167 

0 

(+3) 

274 

473 

24150 

65157 

14 

LDFUPPERLOOP 

275 

467 

27550 

25154 

0 

( + 1) 

276 

466 

50 

24271 

0 

(+2) 

277 

435 

16150 

65164 

10 

(+3) 

300 

472 

17150 

125163 

10 

(+4) 

301 

471 

27050 

125160 

0 

(+5) 

302 

470 

50 

25167 

0 

(+6) 

303 

434 

24150 

65153 

10 

LDFRESET 

304 

465 

16050 

125150 

4 

~ ( + 1) 

305 

464 

14020 

101146 

0 

(+2) 

306 

463 

16150 

65145 

10 

(+3) 

307 

462 

16050 

125143 

0 

(+4) 

310 

461 

0 

43140 

0 

(+5) 

311 

460 

26050 

125137 

0 

(+6) 
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312 

457 

16150 

65123 

4 

LDFLOWLOOP 

313 

451 

27550 

25120 

0 

( + 1) 

314 

450 

50 

24301 

0 

(+2) 

315 

441 

14150 

65134 

0 

(+3) 

316 

456 

15150 

125133 

0 

(+4) 

317 

455 

16150 

65130 

0 

(+5) 

320 

454 

17150 

125126 

0 

(+6) 

321 

453 

50 

24076 

0 

( + 7) 

322 

437 

15050 

125074 

0 

( + 10) 

323 

436 

27050 

125124 

0 

LDFINCBITNUM 

324 

452 

50 

25137 

0 

( + 1) 

325 

'440 

11050 

125116 

10 

DONEWITHFAKELOF 

326 

447 

45 

5115 

0 

( + 1) 

327 

446 

50 

25074 

0 

(+2) ' 

330 

442 

45 

5113 

0 

FNUMGT206 

331 

445 

50 

25125 

0 

( + 1) 

332 

1052 

14 

43054 

2 

(+2) 

333 

1226 

25450 

25052 

2 

(+3) 

334 

1225 

50 

24224 

0 

( + 4) 

335 

1013 

11 

57142 

1 

(+5) 

336 

1161 

25450 

25141 

1 

(+6) 

337 

1160 

50 

24241 

0 

( + 7) 

340 

1021 

24000 

103101 

11 

( + 10) 

341 

1140 

10 

57077 

1 

( + 11) 

342 

1137 

25450 

65074 

1 

( + 12) 

343 

1136 

24050 

125072 

15 

( + 13) 

344 

1135 

50 

25070 

1 

( + 14) 

345 

1020 

12 

55137 

1 

FNUMGT226 

346 

1157 

25450 

25135 

1 

( + 1) 

347 

1156 

50 

24235 

0 

(+2) 

350 

1017 

24000 

105110 

11 

(+3) 

351 

1144 

11 

57106 

1 

(+4) 

352 

1143 

25450 

65104 

1 

( + 5) 

353 

1142 

24050 

125102 

15 

(+6) 

354 

1141 

50 

25070 

1 

( + 7) 

355 

1016 

13 

51132 

1 

FNUMGT245 

356 

1155 

25450 

25130 

1 

( + 1) 

357 

1154 

50 

24230 

0 

( + 2) 

360 

1015 

24000 

107121 

11 

(+3) 

361 

1150 

12 

55116 

1 

(+4) 

362 

1147 

25450 

65115 

1 

(+5) 

363 

1146 

24050 

125113 

15 

(+6) 

364 

1145 

50 

25070 

1 

(+7) 

365 

1014 

24000 

111126 

11 

FNUMGT263 

366 

1153 

13 

51125 

1 

( + 1) 

367 

1152 

25450 

65123 

1 

( + 2) 

370 

1151 

24050 

125071 

15 

(+3) 

371 

1134 

24150 

65066 

5 

MYDISPATCH 

372 

1133 

16050 

125065 

11 

( + 1) 

373 

1132 

0 

43062 

1 

(+2) 

374 

1131 

26050 

125061 

1 

(+3) 

375 

1130 

24150 

65051 

15 

DISPUPPERLOOP 

376 

1124 

27550 

25046 

1 

( + 1) 

377 

1123 

50 

24244 

0 

( + 2) 

400 

1023 

16150 

65057 

11 

(+3) 

401 

1127 

17150 

125055 

11 

(+4) 

402 

1126 

27050 

125053 

1 

(+5) 

403 

1125 

50 

25061 

1 

(+6) 

404 

1022 

24150 

65044 

11 

DISPRESET 

405 

1122 

16050 

125042 

5 

( + 1) 

406 

1121 

14020 

101040 

1 

(+2) 

407 

1120 

16150 

65037 

11 

(+3) 

410 

1117 

16050 

125034 

1 

( + 4) 

411 

1116 

0 

43032 

1 

(+5) 

412 

1115 

26050 

125031 

1 

(+6) 

413 

1114 

16150 

65015 

5 

DISPLOWLOOP 

414 

1106 

27550 

25013 

1 

( + 1) 

415 

1105 

. 50 

24255 

0 

( + 2) 

416 

1027 

14150 

65026 

1 

(+3) 

417 

1113 

15150 

125024 

1 

( + 4) 

420 

1112 

16150 

65022 

1 

(+5) 

421 

1111 

17150 

125020 

1 

(+6) 

422 

1110 

50 

24052 

0 

( + 7) 

423 

1025 

15050 

125050 

0 

( + 10) 

424 

1024 

27050 

125017 

1 

DISPINCBITNUM 

425 

1107 

50 

25031 

1 

( + 1) 
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426 

1026 

22000 

103011 

5 

DONEWITHFAKEDISP 

427 

1104 

11050 

125006 

15 

( + 1) 

430 

1103 

50 

25074 

0 

(+2) 

431 

1012 

15 

41051 

2 

FNUMGT300 

432 

1224 

25450 

25046 

2 

( + 1) 

433 

1223 

50 

24214 

0 

(+2) 

434 

1007 

14 

41175 

1 

(+3) 

435 

1176 

25450 

65173 

1 

(+4) 

436 

1175 

24050 

125171 

11 

(+5) . 

437 

1174 

24150 

65167 

5 

(+6) 

440 

1173 

14050 

125164 

1 

(+7) 

441 

1172 

0 

43163 

1 

( + 10) 

442 

1171 

26050 

125160 

1 

( + 11) 

443 

1170 

24150 

65151 

11 

LSHLOOP 

444 

1164 

27550 

25147 

1 

( + 1) 

445 

1163 

50 

24221 

0 

( + 2) 

446 

1011 

14150 

65156 

1 

(+3) 

447 

1167 

15150 

125154 

1 

(+4) 

450 

1166 

27050 

125152 

1 

(+5) 

451 

1165 

50 

25160 

1 

(+6) 

452 

1010 

13050 

125144 

1 

DONEWITHFAKELSH 

453 

1162 

50 

25074 

0 

( + 1) 

454 

1006 

15 

77045 

2 

FNUMGT317 

455 

1222 

25450 

25043 

2 

( + 1) 

456 

1221 

50 

24200 

0 

( + 2) 

457 

1001 

14 

77027 

2 

(+3) 

460 

1213 

25450 

65024 

2 

(+4) 

461 

1212 

24050 

125023 

12 

(+5) 

462 

1211 

24150 

65021 

6 

(+6) 

463 

1210 

14050 

125017 

2 

( + 7) 

464 

1207 

0 

43015 

2 

( + 10) 

465 

1206 

26050 

125013 

2 

( + 11) 

466 

1205 

24150 

65003 

12 

LCYLOOP 

467 

1201 

27550 

25001 

2 

( + 1) 

470 

1200 

50 

24211 

0 

( + 2) 

471 

1005 

14150 

65010 

2 

(+3) 

472 

1204 

15150 

125006 

2 

(+4) 

473 

1203 

50 

24007 

0 

(+5) 

474 

1003 

15050 

125005 

0 

(+6) 

475 

1002 

27050 

125005 

2 

LCYINCBITNUM 

476 

1202 

50 

25013 

2 

( + 1) 

477 

1004 

13050 

125176 

5 

DONEWITHFAKELCY 

500 

1177 

50 

25074 

0 

( + 1) 

501 

1000 

15 

77040 

2 

FNUMGT336 

502 

1220 

25450 

25037 

2 

( + 1) 

503 

1217 

50 

24114 

0 

(+2) 

504 

1046 

24237 

77034 

6 

FNUMEQ337 

505 

1216 

14050 

125033 

2 

( + 1) 

506 

1215 

13050 

125030 

12 

(+2) 

507 

1214 

50 

25074 

0 

(+3) 

510 

1047 

16 

41137 

0 

FNUMNEQ337 

511 

1057 

25450 

25134 

0 

( + 1) 

512 

1056 

50 

24121 

0 

(+2) 

5.13 

1050 

14020 

101131 

0 

FNUMEQ340 

514 

1054 

13050 

125126 

14 

( + 1) 

515 

1053 

50 

25074 

0 

(+2) 

516 

1051 

45 

7133 

0 

FNUMNOTUSEFUL 

517 

1055 

50 

25023 

1 

( + 1) 

520 

1061 

50 

25140 

0 

Hi 

521 

1060 

50 

25074 

0 

H2 

522 

1036 

50 

25344 

0 

HARDWAREDOIT 

523 

1062 

22000 

107400 

0 

( + 1) 

524 

1037 

24150 

65005 

5 

(+2) 

525 

1102 

14050 

125001 

5 

(+3) 

526 

@1100 

14176 

101002 

5 

(+4) 

527 

1101 

50150 

65176 

14 

(+5) 

530 

1077 

14050 

125175 

10 

(+6) 

531 

1076 

20150 

124503 

14 

(+7) 

532 

1041 

50 

25074 

0 . 

( + 10) 

533 

1040 

50 

25173 

0 

( + 11) 

534 

1075 

22000 

111170 

0 

SUBTEST4 

535 

1074 

14150 

65166 

4 

( + 1) 

536 

1073 

15450 

25164 

0 

(+2) 

537 

1072 

50 

24070 

0 

(+3) 

540 

b 1035 

50 

25146 

0 

RESULTBAD 

541 

1063 

20150 

124506 

14 

( + 1) 
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542 

1043 

50 

25143 

0 

(+2) 

543 

1042 

50 

25071 

0 

(+3) 

544 

1034 

22000 

113163 

0 

SUBTEST5 

545 

1071 

22150 

25161 

4 

( + 1) 

546 

1070 

50 

24064 

0 

(+2) 

547 

1033 

14150 

65153 

10 

(+3) 

550 

1065 

15450 

25151 

0 

(+4) 

551 

1064 

50 

24061 

0 

(+5) 

552 b 

1031 

50 

25154 

0 

APCBAO 

553 

1066 

20150 

124512 

14 

( + 1) 

554 

1045 

50 

25140 

0 

(+2) 

555 

1044 

50 

25060 

0 

(+3) 

556 

1030 

50 

25065 

0 

APCOK 

557 

1032 

45 

7156 

0 

ALLD0NE 

560 

1067 

50 

25023 

1 

( + 1) 


Page 400: 201 locations used, 177 free 
Page 1000: 227 locations used, 151 free 
Page 1400: 131 locations used. 247 free 


20 

0 

PASSCOUNT 

21 

2 

MAXPASS 

22 


INNERLOOPCOUNTER 

23 

0 

SHORTLOOP 

24 


SUBTEST 

25 


CHECKAPC 

26 


CA 

27 


XA 

30 


FNUM 

31 


OPERAND 

32 


NB ITS 

33 


LEFTBIT 

34 


BITNUM 

35 


CSO 

36 


CS1 

37 


CS2 

40 


CSP 

41 


ADDRESS 

42 


LDFTEST 

43 


DISPATCHTEST 

44 


LSHTEST 

45 


LCYTEST 

46 


LHMASKTEST 

47 


ZEROTEST 

50 


MYRESULT 

51 


RESULT 

52 


APCRESULT 

53 


STUFFTMP 

54 


TMP 

55 


TMP2 

56 


TMP3 

57 

1 

REVISION 

60 

7 

RUN-TIME 

61 


RLC0 


Time: 12 seconds; 0 error(s), 0 warning(s), 11447 words free 
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EDCymLog.MIDAS : Logger for EDCym program 

By: M. Spaur Jan, 8, 1980 


.start L X AppendOutput EDCym.report; 

L X WriteMessage -.**•*«"***** START EDCym Test : 
L X WriteDT; 

L X WriteMessage ***«***********_ ; 

L X Skip .continue; 


.breakpoint L X AppendOutput EDCym.report; 

L A18 SkipNE RESULTBAD; 

L X Skip .ResultBad; 

L A18 SkipNE APCBAD; 

L X Skip .APCBad; 

L A18 SkipNE PASSED-EDCYM-TEST; 

L X Skip .passtest; 

.notmybreak L X AppendOutput EDCym.report; 

L X WriteMessage **♦ FAILed: Not at my breakpoint 

L X WriteMessage ' Parity * ; 

R AO Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CIA * ; 

R A18 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ’ CTASK = ; 

R A19 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage * APCTASK = ; 

R A17 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ’ APC = : 

R A16 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ’ TPC = ; 

R A13 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X CloseOutput; 

L X Exit; 


ResultBad L X WriteMessage *** FAILed: at my Breakpoint ~; 

L X WriteMessage * Result does not equal to myResult ~; 

L X WriteMessage ’ Result = : 

R C9 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ’ myResult = 

R C8 Val: 

L X WriteMessage; 

L X WriteMessage 

.bad 1 X WriteMessage ' SUBTEST * 

R B4 Val; 

L X WriteMessage: 

L X WriteMessage ~: 

L X WriteMessage ' PASSC0UNT - : 

R B2 Val; 

I X WriteMessage: 
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.APCBad 


.passtest 


.continue 


L X WriteMessage 
L X Skip .continue; 

L X WriteMessage *** FAILed: at my Breakpoint 

L X WriteMessage * APCResult does not equal to myResult 

L X WriteMessage ' APCResult * ; 

R CIO Val; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ' myResult * ; 

R C8 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X BackSkip .bad; 

L X WriteMessage - Passed EDCym Test : ; 

L X WriteDT; 

L X WriteMessage - ; 

L X Skip .continue; 

L X WriteMessage ~; 

L X CloseOutput; 

L X DisplayOn; 

L X Confirm; 

L X TimeOut 1000000000; 

L X Continue; 

L X Skip 2; 

L X ShowError Program failed to CONTINUE.; 

L X BackSkip .notmybreak; 

L X DisplayOff; 

L X BackSkip .breakpoint; 
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L A19 Val 0 
L X Confirm 
L X Load EDCVM; 

L BO Addr REVISION; 

L B1 Addr RUN-TIME; 

L B2 Addr PASSCOUNT; 

L B3 Addr MAXPASS; 

L B4 Addr SUBTEST; 

L B7 Addr XA; 

L B8 Addr FNUM; 

L B9 Addr OPERAND; 

L Bll Addr INNERLOOPCOUNTER; 

L B14 Addr LDFTEST; 

L B15 Addr DISPATCHTEST; 

L B16 Addr LSHTEST; 

L B17 Addr LCYTEST; 

L B18 Addr LHMASKTEST; 

L B19 Addr ZEROTEST; 

L C7 Addr MYRESULT; 

L C8 Addr RESULT; 

L C9 Addr APCRESULT; 

L Cll Addr C$0; 

L C12 Addr CS1; 

L C13 Addr CS2; 

L C14 Addr CSP; 

L C16 Addr SHORTLOOP; 

L X DisplayOn; 

L X TimeOut 10000 
L X SS GO 
L X Skip 1 

L X ShowError Single-step at GO hung 
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*** Revision 1 *** 

»** EDFIeld.mc : microcode to test the Mesa field selection operations RF, WFA, WFB 

*** Purpose : This test simulates the RF. WFA, and WFB operations without 

using the cycler-masker and then compares the results with 
the actual executions of the corresponding operations. 

*** Hardware Configuration : Standard 4 CPU boards. 

*** IMPORTANT NOTE : ON VIRGIN SYSTEMS RUN EDFIELD BEFORE EDCYM. 

This EDField test checks hardware that must work properly 
for EDCym to be useful. 

*** Approximate run time : twenty seconds. 

«** written by : Tom Horsley. Dec. 13, 1977 

*** Modified by : Bill Kennedy, March 10, 1978 

Took code off of Page 0. 

*** Modified by : Bill Kennedy. April 24, 1978 

Now uses Maintenance Panel. 

*** Modified by : C. Thacker, (date unknown) 

Improved readability. 

*** Modified by : C. Thacker, August 22, 1978 

Made XB ■ -1 always. 

•** Rewritten by : J. Kellman, March 6, 1980 

Eliminated all cycler-masker functions from both the 
simulated field selection operations and random number 
generators, as well as standardizing the program format. 


* SubTest Description: 

* SubTest 0: (not really a test) generates and decodes a Mesa Field descriptor. 

* SubTest 1: simulates and then executes the RF operation (Mesa Read-Field) 

and compares the results. 

* SubTest 2: simulates and then executes the WFA operation (Mesa Write-Field A) 

. and compares the results. 

* SubTest 3: simulates and then executes the WFB operation (Mesa Write-Field B) 

and compares the results. 

*******««*»«**W**********************«*«****4^*******»********************************** 

* Subroutine Description: 

* LeftCycle: uses ALU additions to simulate the LCycle function 

without using the cycler-masker. 

* LeftShift: uses ALU additions to simulate the LShift function 

without using the cycler-masker. 

********** 4t***********:*»itJ|t******^j|^****i|^#**B|^*jft*i|^#****^#***#***:ft*#*************if^****** 

* Breakpoints: 

* RFBAD: actual RF result failed to agree with simulated RF result 

* WFABAD: actual WFA result failed to agree with simulated WFA result 

* WFBBAD: actual WFB result failed to agree with simulated WFB result 

* Passed-EDField-Test: the system passed thru all the passes of EDField 

**********»**•**»*«******«*****«****************«*******»•***«»«*********«*****•*•*****• 

* Breakpoint Logic Analyzer Sync Points: 

* RFBAD: Control Store address 457 

* WFABAD: Control Store address 451 

* WFBBAD: Control Store address 441 

* Passed-EDField-Test: Control Store address 401 


******* ****c**#**********i^***;*********************************************************** 
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4 *************************************************************************************** 

* Special Register Definitions: 


* LoopWithin: At any breakpoint the user may change the value of LoopWithin. 

Setting LoopWithin to the nonzero value N will cause EDField to loop 
endlessly within the subtest N (when it gets to this subtest). 

If LoopWithin is zero (the default) then the program goes straight 
through all the tests as normal. 

* RandFlag: At any breakpoint the user may change the value of RandFlag 

to 1, which will cause CurrentPattern to take on random values. 

If RandFlag is zero (the default) then CurrentPattern will be set to 
a 16-bit word of all ones during each execution of subtest 0. 

* XA and XB: The two random numbers held in these registers XA and XB are used to 

choose field descriptor (FDescr) and CurrentPattern values 
as follows: FDescr «■ XA[0:7] 

CurrentPattern *■ XB (only if RandFlag 3 1) 

* InnerLoopCounter: This register contains the number of passes through the mainloop. 

The mainloop is simply the set of all of the subtests. When 
InnerLoopCounter 3 (2**16) - 1, all of the possibilities that are tested 
by EDField have been tested exactly once. 

* PassCount: This register displays the number of the current pass of the entire 

EDField test (2**16 iterations of the mainloop). The maintenance 
panel shows the number of the currently running pass. 


MaxPass: This register determines how many times the entire EDField test will repeat. 
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**************************************************************************************** 

* INITIALIZATION: 

BUILTIN[INSERT,24]: 

INSERT[d01ang]; 

TITLE[MesaF1eldTest]; 

********** R-registers: ************* 

RV[Rev isioin, 1,1] ; * revision number is 1 for this program 

RV[Run-Time,2,24]; * run time for this test is twenty seconds 

RV[PassCou«t,3]; * pass count for this program 

RV[MaxPass,4,2]; * maximum number of passes for this run 

RV[SubTest,5]; * current location of test 

RV[InnerLoopCounter,6]; * inner loop counter 

RV[LoopWithin, 10,0]; * set to N to loop on subtest n 

RV[RandFlag , 11,0]; * 0 *> CurrentPattern always 177777, 1 => random pattern 

RV[CurrentPattern,12]; * holds the argument for the RF, WFA, and WFB operations 

RV[CA,13]; * used in random number generation, A*XA + CA 

RV[XA,14]; * random number generated via A*XA + CA 

RV[CB,15]; * used in random number generation, A*XB + CB 

RV[XB,16]; * random number generated via A*XB + CB 

RV[FDescr,17]; * Mesa field descriptor 

RV[StartBit,20]; * start field of mesa field descriptor (first 4 bits) 

RV[EndBit.21]; * last bit of mesa field 

RV[Length,22]; * actual length of mesa field from descriptor (last 4 bits plus 1) 

RV[ShiftIndex,23]; * index register in LeftCycle and LeftShift 

RV[ShiftSize,24]; * number of bits to be shifted in simulated shift (or cycle) 

RV[ShiftValue,25]; * holds word to be shifted in simulated shift (or cycle) 

RV[Mask,26]; * the mask used in simulating the RF, WFA, and WFB operations 

RV[SimResuIt,27]; * result of simulated operations 

RV[Result,30]; * holds the hardware result of current operation 


********** lit ******<t********************************************************************** 

*** MAIN routine: 

SET[MainPage.1]: * set label for Main Program page 

ONPAGE[MainPage]: 

go: 

start: 

* Initialize random generator registers: XA ♦- 123. CA <- 33031 

XA <- AND@[0377, 123]C ; 

XA - (XA) OR (AND@[177400. 123]C); 

CA - AND@[0377, 33031]C; 

CA - (CA) OR (AND@[177400, 33031]C); 

* Initialize random generator registers: XB *■ 456, CB «- 33035 

XB «■ AND@[0377, 456]C: 

XB <- (XB) OR (AND@[ 177400, 456]C); 

CB - AND@[0377. 33035]C ; 

CB - (CB) OR (AND@[ 177400. 33035]C); 

CLIiARMPANEL : 

InnerLoopCounter «- 0C: * Initialize inner loop counter 
PassCount «- 0C; * Initialize outer loop counter 

bigLoop: t *- PassCount (PassCount) + 1: 

LU - (MaxPass) - (t): 

GOTO [.+2. ALU >= 0]; 

Passed-EDFie1d-Test: BREAKPOINT. goto[go]: 

INCMPANE L: 


SUBTEST 0 *** 
na i n!oop: Sut Test - 0C: 

I U - t I. oopW i t h i n > ; 
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GOTO [ExtractFDescr. ALU # 0]: * Do next pattern value? 

InnerLoopCounter «- (InnerloopCounter) + 1: 

GOTO [bigLoop, CARRY]; 

* Random (4005*XA + CA mod 2**16) 
t «• XA: 

ShiftValue *• t; 

ShiftSize *■ 2C; * left shift old XA by 2 bits 

CALL [LeftShift]; 
t «- ShiftValue; 

XA <- (XA) + t; * add shifted value to XA 

ShiftSize «- 11C; * left shift original old XA by a total of 13C bits 

CALL [LeftShift]; 
t «• ShiftValue; 

t «■ (XA) + t; * add shifted value to subtotal 

t <- (CA) + t; * add CA 

XA <- t; * result is new XA 

* Random (4005*XB + CB mod 2**16) 
t «■ XB; 

ShiftValue «• t; 

ShiftSize *■ 2C; * left shift old XB by 2 bits 

CALL [LeftShift]; 
t «■ ShiftValue; 

XB «- (XB) + t; * add shifted value to XB 

ShiftSize «- 11C; * left shift original old XB by a total of 13C bits 

CALL [LeftShift]; 
t «■ ShiftValue; 

t «- (XB) + t; * add shifted value to subtotal 

t *■ (CB) + t; * add CB 

XB «- t; * result is new XB 

LU *■ RandFlag; 

DBLGOTO [PatternAllOnes. PatternRandom, ALU * 0]; 

PatternAllOnes: CurrentPattern «- (ZERO) - 1. goto[ExtractFDescr]; 

PatternRandom: CurrentPattern «- t. goto[ExtractFDescr]; 

ExtractFDescr: t - XA; * XA will yield the field descriptor for this test 

ShiftValue <- t; * we extract all our descriptor values by 

* ALU-simulated cycling and masking 

* (to avoid using the cycler-masker) 

ShiftSize ♦* 10C; * simulate an eight-bit left cycle 

CALL [LeftCycle]; 

t «- ShiftValue; 

FDescr «- t; 

FDescr «- (FDescr) and (377C): * mask to get entire field descriptor 

DecodeFDescr: t «- FDescr; * now decode this FDescr 

ShiftValue «- t; 

ShiftSize *■ 14C; * simulate a twelve-bit left cycle 

CALL [LeftCycle]; 

t <- ShiftValue; 

StartBit *- t; 

StartBit «- (StartBit) and (17C); * mask to get field start bit index 

ShiftSize *- 4C: * simulate a further four-bit left cycle 

CALL [LeftCycle]: 

t ShiftValue: 

Length *■ t: 

Length *■ (Length) and (17C): * mask to get length field 
Length - (Length) 1; * adjust length value to actual length 

t - (Length ) - 1 : 
t (StartB it) + t: 

EndBit *• t: * proper end bit index calculated 

LU *- (EndBit) - (20C): * check if end bit makes sense 

GOTO [EndBitPastfnd . ALU ' = 0J: 

GOTO [RFTest]; 

( ; 1 Pas tE nd : GOTO [maintoop]: 
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*** SUBTEST 1 *** 

RF Test: SubTest «- 1C; * first simulate RF 

ShiftValue (ZERO) - 1; * form Mask 

t Length; 

ShiftSize «• t; 

CALL [LeftShift]; 

t «- (ShiftValue) xnor (OC); 

Mask «- t; 

t «- CurrentPattern; * left cycle current pattern by (Startbit + Length) bits 

ShiftValue «• t; 
t Length; 
t «- (StartBit) + t; 

ShiftSize *■ t; 

CALL [LeftCycle]; 

t «- Mask; * apply Mask to left-cycled CurrentPattern 

t «- (ShiftValue) and t; 

SimResult *■ t; 

CYCLECONTROL FDescr; * now do real RF 
t <- RF[CurrentPattern]; 

Result <■ t; 

lu ♦* (LoopWithin) - (1C); * loop within this test? 

GOTO [.+2, ALU # 0]; 

GOTO [RFTest]; 

LU (SimResult) - (t); * compare RF results 

GOTO[WFATest, ALU - 0]; 

RFBAD: BREAKPOINT, goto[RFTest]; 


*** SUBTEST 2 *** 

WFATest; SubTest «- 2C; * first simulate WFA 

ShiftValue «- (ZERO) - 1; * form Mask 

t «- Length; 

ShiftSize «- t; 

CALL [LeftShift]; 

ShiftValue «- (ShiftValue) xnor (OC); 

t - (StartBit) - (20C); 
t «- (Length) + t; 

ShiftSize «- (ZERO) - t; 

CALL [LeftShift]; 

t «- ShiftValue; 

Mask - t: 

t *- CurrentPattern; * left cycle CurrentPattern by 20C - (StartBit + Length) bits 

ShiftValue *• t; 

CALL [LeftCycle]; 

t <- Mask; * apply Mask to left-cycled CurrentPattern 

t - (ShiftValue) and t; 

SimResult «- t; 

CYCLECONTROL *• FDescr; * now do real WFA 
t '<■ WFA[CurrentPattern ]; 

Result *- t; 

lu - (LoopWithin) - (2C); * loop within this test? 

GOTO [.+2. ALU # 0]: 

GOIO [WFATest]; 

LU - (SimResult) - (t): * compare WFA results 

GOT 0[WFBlest. ALU = 0]; 

•a : AHAiF; fiFi I AKPO I NT . go to[Wt ATes t ]: 
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*** SUBTEST 3 *** 

WFBTest: SubTest *■ 3C; * first simulate WFB 

ShiftValue «- (ZERO) - 1: * form Mask 

t «■ Length; 

ShiftSize *■ t; 

CALL [LeftShift]; 

ShiftValue «- (ShiftValue) xnor (0C); 

t «■ (StartBit) - (20C); 
t <- (Length) + t; 

ShiftSize «■ (ZERO) - t; 

CALL [LeftShift]; 

t «- ShiftValue; 

Mask «- t; 

t <- CurrentPattern; * apply inverse Mask to CurrentPattern 

SimResult <- t; 

t ♦* Mask; 

SimResult (SimResult) andnot t; 

t «- Mask; * insert masked CurrentPattern into XB ’ s pattern 

t «- (XB) and t; 

SimResult «- (SimResult) or t; 

CYCLECONTROL «■ FDescr; * now do real WFB 

t «- (WFB[CurrentPattern]) OR t; * register t still holds XB and Mask 
Result «* t; 

lu «- (LoopWithin) - (3C); * loop within this test? 

GOTO [.+2. ALU ti 0]; 

GOTO [WFBtest]; 

LU «- (SimResult) - (t); * compare WFB results 

GOTO[.+2. ALU * 0]; 

WFBBAD: BREAKPOINT,goto[wfbtest]; 

GOTO[mainLoop]; 


********* 


SUBROUTINE: LeftCycle 


** ** **** * 


(to simulate LCycle without using the cycler-masker) 

This subroutine left cycles ShiftValue by ShiftSize bits. 


LeftCycle: Shiftlndex «■ 1C; 
CycleLoop: t «- (ShiftSize): 

LU «- (Shiftlndex) - (t) -1; 
GOTO[CycleEnd, ALU >« 0]; 

t <- ShiftValue; 


* done with cycles yet? 

* ShiftValue holds the value to be left cycled 


ShiftValue «- (ShiftValue) + t; * simulate a left shift by adding to self 


GOTO[.+2. NOCARRY]; 

ShiftValue <- (ShiftValue) + 1: 

Shiftlndex «- (Shiftlndex) + 1; 
GOTO[CycleLoop]; 


* bit shifted out left comes back into right side 


CycleEnd: RETURN; 


SUBROUTINE: LeftShift 


******* 


(to simulate LShift without using the cycler-masker) 

This subroutine left shifts ShiftValue by ShiftSize bits 


i. e f L S n i f t : Shiftlndex - 1C; 
Shiftlcop: t - (ShiftSize): 
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LIJ ~ (Shiftlndex) - (t) - 1; 

G0T0[Shift£nd. ALU >= 0]; * done with shifts yet? 

t «- ShiftValue; * ShiftValue holds the value to be left cycled 

ShiftValue (ShiftValue) + t: * simulate a left shift by adding to self 

Shiftlndex <* (Shiftlndex) + 1; 

G0T0[ShiftLoop]; 

ShiftEnd: RETURN; 


END; 
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MicroD 8,6 (OS 16) of April 27. 1979 
at 6-Mar-80 12:10:51 

microd.run EDField.dib 


EDField.dib 261b instructions written 6-Mar-80 12:10:08 

Total of 261b instructions 

Checking for errors... 

Linking.. . 

Building allocation lists... 

Assigning locations. . . 

261b Instructions in rings involving ONPAGE or AT 
Reloading binaries. 

Checking assignment... 

Writing .MB file... 

Writing listing... 

' IM: 


Imag 

Real 

WO 

W1 

W2 

Symbol 

EDField, 

. d i b : 





0 

470 

36005 

107140 

2 

GO START 

1 
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36320 

101136 

2 

( + 1) 

2 
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34001 

123134 
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(+2) 

3 
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34323 
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(+3) 
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5 
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12 

(+5) 

6 
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6 

(+6) 

7 
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36323 
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6 

( + 7) 

10 

651 

47 

7121 

2 

( + 10) 

11 

650 

32020 
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12 

( + 11) 

12 

647 

30020 

101006 

14 

( + 12) 

13 

403 

31050 

165115 

16 

BIGLOOP 

14 

646 

33450 

25113 

2 

( + 1) 

15 

645 

50 

24200 

0 

(+2) 

16 b 
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50 

25161 

0 

PASSED-EDFIELD 

17 
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0 
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1 
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26 
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5 

(+6) 

27 
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0 

(+7) 

30 
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50 
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1 

( + 10) 

31 
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22150 
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4 

( + 11) 

32 
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0 
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33 
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62 

630 

22050 

125057 

6 

( + 1) 

63 
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22000 

121044 

0 

(+2) 

64 
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50 

25255 

2 

(+3) 

65 
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22150 

65006 

6 

(+4) 

66 
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36050 

125005 

16 

(+5) 

67 
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36217 

137002 

16 

(+6) 

70 
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36150 

65001 

16 

DECODEFDESCR 

71 
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22050 

125177 

5 

( + 1) 

72 
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22000 

131040 

0 

(+2) 

73 
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50 

25255 

2 

(+3) 

74 
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22150 
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6 

(+4) 

75 
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2 

(+5) 
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(+6) 
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( + 14) 
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12 
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2 

( + 16) 

107 
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125071 

6 
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634 

21401 
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6 

(+20) 
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50 

24331 

0 

( + 21) 

112 

455 

50 

25032 

1 

( + 22) 

113 

454 

50 

25111 

2 

ENDBITPASTEND 

114 

515 

32000 

103013 

5 

RFTEST 

115 

505 

23376 

101010 

5 

( + 1) 

116 

504 

20150 

65007 

11 

( + 2) 

117 

503 

22050 

125034 

0 

(+3) 

120 

416 

50 

25354 

1 

( + 4) 

121 

417 

22720 

41031 

6 

( + 5) 

122 

614 

22050 

125026 

12 

(+6) 

123 

613 

34150 

65025 

12 

( + 7) 

124 

612 

22050 

125023 

6 

( + 10) 

125 

611 

20150 

65020 

12 

( + 11) 

126 

610 

21150 

65016 

2 

( + 12) 

127 

607 

22050 

125141 

0 

( + 13) 

130 

460 

50 

25255 

2 

( + 14) 

131 

461 

22150 

65030 

11 

( + 15) 

132 

514 

22250 

65027 

5 

( + 16) 

133 

513 

22050 

125024 

15 

( + 17) 

134 

512 

36150 

11023 

15 

(+20) 

135 

511 

34154 

65021 

11 

(+21) 

136 

510 

24050 

125017 

1 

( + 22) 

137 

507 

35400 

3015 

1 

( + 23) 

140 
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50 

24114 

0 

( + 24) 

141 

446 

50 

25032 

1 

( + 25) 

142 
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23450 

25061 

15 

(+26) 

143 
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50 

24135 

0 

( + 27) 

144 b 
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50 

25032 

1 

RFBAD 

145 
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32000 

105040 

5 

WFATEST 

146 
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23376 

101037 

5 

( + 1) 

147 

517 

20150 

65034 

11 

(+2) 

150 
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22050 

125111 

0 

(+3) 

151 

444 

50 

25354 

1 

(+4) 

152 

445 

22720 

101067 

5 

(+5) 

153 

533 

21401 

41065 

1 

(+6) 

154 

532 

21150 

65063 

11 

( + 7) 

155 

531 

23476 

101030 

0 

( + 10) 

156 

414 

50 

25354 

1 

( + 11) 

157 

415 

22150 

65036 

6 

( + 12) 

160 

617 

22050 

125034 

12 

( + 13) 

161 

616 

34150 

65032 

12 

( + 14) 

162 

615 

22050 

125125 

4 

( + 15) 

163 

452 

50 

25255 

2 

( + 16) 

164 

453 

22150 

65056 

11 

( + 17) 

165 

527 

22250 

65055 

5 

( + 20) 

165 

525 

22050 

125053 

15 

(+21) 

167 

525 

36150 

11051 

15 

(+22) 

170 

524 

34151 

65047 

11 

(+23) 

171 

523 

24050 

125044 

1 

(+ 24 ) 

1 72 

522 

35-00 

5043 

1 

( *25 ) 

i ~ ■) 

521 

50 

24075 

0 

(+26) 

1 

^ 3 c 

5C 

25134 

0 

(+271 


-1 0 7 

22-5C 

25130 

1 5 

(+30) 
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176 

554 

50 

24121 

0 

(+31) 

177 b 

451 

50 

25134 

0 

WFABAD 

200 

450 

32000 

107074 

5 

WFBTEST 

201 

536 

23376 

101073 

5 

( + 1) 

202 

535 

20150 

65070 

11 

( + 2) 

203 

534 

22050 

125070 

0 

(+3) 

204 

434 

50 

25354 

1 

( + 4) 

205 

435 

22720 

101136 

5 

-( + 5) 

206 

557 

21401 

41134 

1 

(+6) 

207 

556 

21150 

65132 

11 

( + 7) 

210 

555 

23476 

101104 

0 

( + 10) 

211 

442 

50 

25354 

1 

( + 11) 

212 

443 

22150 

65126 

5 

( + 12) 

213 

553 

22050 

125124 

11 

( + 13) 

214 

552 

34150 

65122 

11 

( + 14) 

215 

551 

22050 

125120 

15 

( + 15) 

216 

550 

22150 

65116 

11 

( + 16) 

217 

547 

22550 

125115 

15 

( + 17) 

220 

546 

22150 

65113 

11 

( + 20) 

221 

545 

36250 

65110 

11 

(+21) 

222 

544 

22350 

125107 

15 

(+22) 

223 

543 

36150 

11105 

15 

(+23) 

224 

542 

34353 

65102 

11 

(+24) 

225 

541 

24050 

125101 

1 

(+25) 

226 

540 

35400 

7077 

1 

( + 26) 

227 

537 

50 

24010 

0 

(+27) 

230 

404 

50 

25120 

0 

(+30) 

231 

405 

23450 

25106 

16 

( + 31) 

232 

643 

50 

24100 

0 

(+32) 

233 b 

441 

50 

25120 

0 

WFBBAD 

234 

440 

50 

25111 

2 

( + 1) 

235 

626 

20000 

103053 

16 

LEFTCYCIE 

236 

625 

22150 

65043 

2 

CYCLELOOP 

237 

621 

21550 

25040 

16 

( + 1) 

240 

620 

50 

24224 

0 

( + 2) 

241 

413 

22150 

65050 

6 

(+3) 

242 

624 

23150 

125046 

6 

(+4) 

243 

623 

50 

24023 

0 

( + 5) 

244 

411 

23050 

125020 

4 

(+6) 

245 

410 

21050 

125044 

16 

( + 7) 

246 

622 

50 

25052 

2 

( + 10) 

247 

412 

50 

25401 

0 

CYCLEEND 

250 

566 

20000 

103152 

15 

LEFTSHIFT 

251 

565 

22150 

65142 

1 

SHIFTLOOP 

252 

561 

21550 

25141 

15 

( + 1) 

253 

560 

50 

24265 

0 

( + 2) 

254 

433 

22150 

65151 

5 

( + 3) 

255 

564 

23150 

125147 

5 

(+4) 

256 

563 

21050 

125145 

15 

( + 5) 

257 

562 

50 

25153 

1 

(+6) 

260 

432 

50 

25401 

0 

SHIFTEND 


Page 400: 

261 

locations used, 1 

RM: 

1 

1 

REVISION 

2 

24 

RUN-TIME 

3 


PASSCOUNT 

4 

2 

MAXPASS 

5 


SUBTEST 

6 


INNERLOOPCOUNTER 

10 

0 

LOOPWITHIN 

11 

0 

RANDFLAG 

12 


CURRENTPATTERN 

13 


CA 

14 


XA 

15 


CB 

16 


XB 

17 


FDESCR 

20 


STARTBIT 

21 


ENDBIT 

22 


LENGTH 

23 


SHI FT INDE X 

24 


SHIFTSIZE 

25 


SHIFTVALUL 
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26 

MASK 


27 

SIMRESULT 


30 

RESULT RLC@ 


Time: 8 

seconds: 0 error(s). 0 warning(s), 

, 1 1927 words free 
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EDFieldLog.MIDAS : Logger for EDField program 

By: J. Kellman Feb. 22. 1980 


start L X AppendOutput EDField.report; 

L X WriteMessage -.******•**« START EDField Test 
L X WriteDT; 

L X WriteMessage **********#»:»**.. . 

L X Skip .continue: 


.breakpoint L X AppendOutput EDField.report; 

L A18 SkipNE RFBAD; 

L X Skip .rfbad; 

L A18 SkipNE WFABAD; 

L X Skip .wfabad; 

L A18 SkipNE WFBBAD; 

L X Skip .wfbbad; 

L A18 SkipNE PASSED-EDFIELD-TEST; 

L X Skip .passtest; 

.notmybreak L X AppendOutput EDField.report; 

L X WriteMessage *** FAILed: Not at my breakpoint 

L X WriteMessage ’ Parity = : 

R AO Val; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ' CIA = ; 

R A18 Val; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ’ CTASK = ; 

R A19 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' APCTASK = ; 

R A17 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' APC = ; 

R A16 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' TPC * ; 

R A13 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X CloseOutput; 

L X Exit: 


.rfbad L X WriteMessage *** FAILed: at my Breakpoint RF BAD -; 
.bad L X WriteMessage ' PASSCOUNT = ; 

R B2 Val; 

L X WriteMessage: 

L X WriteMessage ~; 

L X WriteMessage ' RESULT = 

R B17 Val: 

L X WriteMessage: 

L X WriteMessage ~: 

L X WriteMessage ' SIMRESULT = ; 

R B16 Val: 

L X WriteMessage: 

I X WriteMessage ~: 
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.wf abad 

.wfbbad L 

.passtest 

.continue 


L X WriteMessage ' FDESCR = : 

R B8 Val: 

L X WriteMessage: 

L X WriteMessage 

L X WriteMessage * STARTBIT a ; 

R B9 Val: 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ' ENDBIT * : 

R BIO Val ; 

L X WriteMessage: 

L X WriteMessage 

L X WriteMessage ’ CURRENTPATTERN = ; 

R B14 Val; 

L X WriteMessage: 

L X WriteMessage 

L X WriteMessage ’ XB = ; 

R B15 Val: 

L X WriteMessage; 

L X WriteMessage 

L X Skip .continue; 

X WriteMessage *** FAILed: at my Breakpoint WFA BAD 
L X BackSkip .bad; 

X WriteMessage *** FAILed: at my Breakpoint WFB BAD 
L X BackSkip .bad; 


L X WriteMessage - PASSed EDField Test 

L X WriteDT; 

L X WriteMessage - ; 

L X Skip .continue; 

L X WriteMessage ~; 

L X CloseOutput; 

L X DisplayOn; 

L X Confirm; 

L X TimeOut 10000000: 

L X Continue: 

L X Skip 2; 

L X ShowError Program failed to CONTINUE.; 

L X BackSkip .notmybreak; 

L X DisplayOff; 

L X BackSkip .breakpoint; 





F I) r i e 1 d . n i d a s 


2-Apr-80 10:33:0 0 


Pane 


1 


L A19 Val 0 
L X Confirm 
L X Load EDFIELD; 

L BO Addr REVISION 
L B1 Addr RUN-TIME 
L B2 Addr PASSCOUNT 
L B3 Addr MAXPASS 
L B4 Addr SUBTEST 
L B5 Addr INNERLOOPCOUNTER 
L B8 Addr FDESCR 
L B9 Addr STARTBIT 
L BIO Addr ENDBIT 
L B11 Addr LENGTH 
L B14 Addr CURRENTPATTERN 
L B15 Addr XB 
L B16 Addr SIMRESULT 
L B17 Addr RESULT 

L C13 Addr RANDFLAG 
L C15 Addr LOOPWITHIN 

L X DisplayOn: 

L X TimeOut 10000 
L X SS GO 
L X Skip 1 

L X ShowError Single-step at GO hung 
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EDSmallMem.mc : Small Memory Exerciser microcode 

Purpose : This test exhaustively exercises the control store as a 4K x 35 bit memory, 
except for locations occupied by the program or tne kernel: 
and the T registers, except for T[15] and T[17], 

Minimum Hardware : Standard 4 CPU boards. 

Approximate Run Time : 30 seconds. 

Written by : Tom Horsley, January 3. 1973 

note: since this test tests all of control store except Page 


197S 1:39 PM Bill Kennedy 

April 20. 1978 

Oecember 12. 1978 


the main progran nas 

been left on Page 0. March 10. 

Modified by : Sill Kennedy. 

to re-initialize Control Store 
Modified by : Chuck Thacker. 

to force CS reads and writes in RCSLoop to be on even locations. 

Modified by : Chuck Thacker. June 14.1379 

to avoid R0, Rll-17. CS pages 16 and 17, tasks 16 and 17. 

Modified by : T. Henning. November 5, 1979 

to standardize title page and code format, add looping and additional patterns 


•SubTest Description: 

' SubTest 0: The test has stopped at an unexpected place, something else is 
interfering with this test. 

’ SubTest 1; Confirm that the value written (Pattern) into Control Store bits 
is the one read out (Result). 

' SubTest 2: Confirm that the value written (Pattern) into Control Store bits 
is the one read out (Result). 

‘ SubTest 3: Confirm that the value written (Pattern) into Control Store bits 
is the one read out (Result). 

1 SubTest 4: Before writing a t-register confirm that it contains its index. 

If it doesn't then possibly the wrong register has been accessed. 

Also, confirm that the value written (Pattern) into the T register is 1 
read out (Result). 


0 to 15 
16 to 31 
32 to 35 


he one 


■Breakpoints: 

* PATTERNERROR: Result read did not match Pattern written. 

* 8ADT: Index read from the current T register was not correct in SubTest 4. 

* BAD-MEMADDR: MemAddr is beyond allowed values, legal ranges are: 

SubTest 1: 400 to 6777 (StartWord to EndWord) 

SubTest 1: 4CC to 6777 (StartWord to EndWord) 

SubTest 1: 400 to 6777 (StartWord to EndWoraj 

SubTest 1: 0 to 15 (tasks 16. 17 disallowed for Timer and Kernel) 

* PASSED-cOSMALLMEM-TEST: Passed all tests, and all passes. 


* ShortLoop Logic Analyzer Sync Points at Control Store address 

* PATTERNERROR: Control Store address 145 at MAINLOOP. 

* BADT: Control Store address 145 at MAINLOOP. 
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“Special Reg. Definition: 


M*l|Uft***l«**ttK****M***«*********>******«** 


Shortloop: At any breakpoint, the user has the choice of setting SnortLoop to a 1 to 
loop on the current test. During the short loop, the user can modify the address 
and data to the Control Store at will by changing MemAddr and Pattern. For the 
T register test in subtest 4. the T register and the test pattern can also be 
changed at will. 


1. the current test will loop reoeateoly fer trouble shooting 
0. no looping in current test 


* PatternChoice: 

Bit 15 - all zeros pattern, enable by 1. disable by : 

Bit 14 - all ones pattern, enable by 1. disable by 0 
Bit 13 - checker pattern, enable by 1. disable by G 
Bit 12 - random pattern, enable by 1, disable by 0 

Example: PatternChoice« 1 enables the all zeros pattern only 
PatternChoice«2 enables the all ones pattern only 
PatternChoice*4 enables the checker pattern only 
PatternChoice«10 enables the random pattern only 
PatternChoice»17 enables all four of the patterns 
PatternChoice*!! enables the random and all zeros patterns 


•Subroutine Description: 

• RelnitCS: zeros out Control Store and puts in correct parity. 
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•INITIALIZATION: 

BUILTIN[INSERT. 24]: 

INSERT[D0LAN6]; 

TITLE[Smal IMemoriesTester] •. * Exhaustively exercises various small memories 
MIDASINIT; 

SET[MainPage. C]: * set tag for Main Program page 

ONPAGE[MainPage]: 

«»****m«v* R-Reg i sters ■ *«»»w***** 

RV[PassCount.20]: “outer loop counter 

RV[MaxPass.21,10]; ‘number of tines big loo? is to repeat before breakpointing 

RV[SubTest.22]: * current location of test 

RV[7estCounter.22]; * inner loop counter 

RV[CA,24]; ‘used in random number generation. A*XA - CA 

RVj]XA,25]; 'random number generated via A*XA * CA 

RV[Curr 9 ntXA,26]; ‘value of XA to be used (usually XA. sometimes OldXA) 

RV[OldXA,27]; ‘last valueof XA 

RV[CSOTest.30]: ‘number of test iterations 

RV[CSlTest,31]; ‘number of test iterations 

RV[CS2T«»st.32]: ‘number of test iterations 

RV[StartWord.33. 400]: * beginning of control store to be tested 

RV[Endword.34. 5777]; ‘end of control store to be tested 

RV[RepeatCounter,35]; ‘number of test repeats 

RV[TmemTest.36]: ‘number of test iterations 

RV[CS0,37]; * temporary register used in re-initializing Control Store 

RV[CS1,40]; ‘ temporary register used in re-initializing Control Store 

RV[CS2.41]; * temporary register used in re-initializing Control Store 

RV[NewTask,42]; ‘used in task switching 

RV[Tmp,43]; * temporary register 

SET[wordLoc, 441; ‘address of register 'MemAddr' 

RV[MemAddr. wordloc]: ‘address of memory cell to be tested 

MC[wordAddress. wordloc]; ‘address of register 'MemAddr' 

RV[Pattern, AD0!>ordLoc, 1]]; ‘pattern to be stuffed into word 
RV[Result. AOD[wordLoc. 2]]; ‘result of memory read 

RV[PatternChoice,47,17]; ‘enable all patterns at program start 

RV[CurrentPattern.50 .1]: ‘initialize to all zeros pattern 

RVfPatternTry.51.1]: ‘initialize to all zeros pattern 

RV[Ones.52.177777]; ‘define ones to be 177777 

RV[Checkerl.53,125252]: ‘checker pattern register 

RV[CheckerO.54.352525]; ‘checker pattern register 

RV[Toggle.55.0]; ‘checker toggle register 

RV[Shortlooo,56,0]: * 1 *> loop on current test. 0 *> continue on next test 

RV[Rev i sion.57 ,1 ]; ‘REVISION 1 

RV[Run-7ime.60.35]; ‘Run-Time is 36b or 300 seconds 

****“““ Task Entry Points: “““““ 

SET[h ignerT askLoc, 40]; ‘entry point to higner task 

MC[h igherTaskEntry, higherTaskloc]; ‘entry point to higher task 

SET[1owerTaskLoc . 50]; ‘entry point to task 0 

MC[1owerTaskEntry. 1owerTaskLoc]; ‘entry point to task 0 

SET[hignerTasklocl. 50]; ‘entry point to higher task 

MC[h igherTaskEntry1. h ighertaskLocl]: ‘entry point to higher task 

SET[1owerTaskLoc1. 70]; ‘entry point to task 0 

MC[1owerTaskEntrv 1. 1owerTaskLoc1]: ‘entry point to task C 

SET[testSwitch. 20]: ‘location of main switch 

SET[Ma’nPageBase.LSHIFT[MainPage.10]]; 
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“• MAIN routine: 

90: 

start : 

XA - AN09[C'377. 123]C; ‘Load 15 Bits (XA ** 123) 

XA - (XA) OR (AND@[ 177-CC. 123JC): 

CA - AND§[0377. 33C311C: ‘Load 15 Bits (CA - 33031, 

CA - (CA) OR (AND0[1774C:. 3303 1 ]C ; : 

CLEARMPANEL; 

TestCounter - OC; 

PassCount - OC: 

CSOTest - OC: 

CSITest - OC; 

CS2Test *• OC; 

TmemTest - OC; 

RepeatCounter *• OC; 

t •* 20000C; ‘set up CurrentXA so that it contains valid address 

t - (LSH[$tartWord, 1]) OR (t); 

CurrentXA *■ t; 

t (1C); "Initialize task registers to their task index 

MemAddr *• t; 

IndexT : t *■ (17C); 

LU «• (MemAddr) - (t) - 1; 

GOTO[IndexTDone. ALU 0]: 

t - LSH[MemAddr, 14] ; 

NewTask - t; 

NewTask *■ (MewTask) OR (higherTaskEntryl) ; 

APCTASK&APC - (NewTask); 

RETURN: 

Tmp - wordAddress. AT[hignerTaskLocl]; ‘write value into t register 
-STKP - Tmp; 
t - STACK; 

TmD *■ lowerTaskEntryl; ‘return to task 0 

APCTASK&APC - (Tmp) ; 

RETURN: 

% NOP. AT[iowerTaskLocl]; 

MemAddr *■ (MemAddr) - 1; ‘Increment FOR loop counter 

GQTO[ IndexT]; 

IndexTOone: 

nop: 

bigLoop; t *- (PatternTry) ANO ( 177760C); “what pattern to use? 

goto[WhatPattern,alu»0]: ‘exhausted all four pattern types? 

PatternTry - 1C; ‘yes. select the zero pattern again 

Togqle *■ OC; ‘reset checker pattern toggle 

INCMPANEL: 

PassCount*- t -( PassCount :-l: ‘increment pass count 

lu - (MaxPass) - (t); 

goto[EndTest. alu<C]; ‘finished all passes? 

nop ; 

WhatPattern: t - PatternChoice: ‘determine what pattern to use 

t - (PatternTry) AND (t; ; 

gotc[NextPattern,alu®0 ]: *oo we want to use this pattern? 

ThisPattern: CurrentPattern *■ t. gcto[ma i nloop ]; ‘yes, use tnis pattern 

NextPattern: PatternTry - LSH[PatternTry.1]. goto[b1gLoop]; ‘no, try the next pattern 

End!est; 

CALL[ReInitCS]; * go reinitialize control store 

Passed-EDSmalIMem-Test: BREAKPOINT. goto[go]; 
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* SUBTEST 0 
mainloop: 

SubTest - CC. ATT 145]: *nai1 down scope trigger point 

Shortloop - ShortLoop. GOTO[decipherXA. R ODD]; ‘Shortloop selected? 

TestCounte'r - (TestCounter) + 1; 

GOTO[. *2 . NOCARRY]; 

PatternTry *■ LSH[PatternT ry . 1 ]. gcto[b igLoop ] : *use next pattern 

t - (CurrentXA) ; 

OldXA - t; 

t «- XA. TASK; "task so that Midas can mouse halt 

t - (lSH[XA, 2]) + t; ‘Random (4005*XA - CA mod 2**15) 

t - (LSH[XA, 13]) + t: 
t - (CA) - t: 

XA - t; 
t - (XA); 

CurrentXA - t: 


t *■ (CurrentPattern) ANO (1C); 
goto[Tryl,a1u a 0]; 

Pattern «■ 0C, goto[decipherXA] 

Tryl; t ♦* (CurrentPattern) ANO (2C): 
goto[Try2,a1u«0]; 
t *• Ones; *yes 

Pattern «■ t. goto[decipherXA]; 

Try2; t «• (CurrentPattern) AND ( 4C): 
goto[Try3,alu*0]; 

Toggle *■ Toggle, goto[CheckerO 1.R OOD]; 
t - Checkerl; *1010101010101010 pattern 

Pattern - t; 

Toggle - (Toggle) - 1, goto[decioherXA]; 
CheckerOl: t - CheckerO; 

Pattern *• t: 

Toggle - (Toggle) + 1. goto[decipherXA]; 
7ry3: t - (CurrentPattern) AND (10C); 

goto[b igLoop.alu*0]; 
t - (CurrentXA); *yes 

Pattern «- t: 
t *• PassCount; 

Pattern *■ (Pattern) + (t); 


•want the zeros pattern? 
•yes 

•no, try the ones pattern 
•want the ones pattern? 


•no, try the checker pattern 
•want the checker pattern? 

•yes 


•toggle checker pattern 
•0101C1010101C101 pattern 

•toggle checker pattern 
•no, try the random pattern 
want the random pattern? 


decipherXA: SET[SwitchO. TestSwitch]; ‘pick memory to be tested 

DISPATCH[CurrentXA. 0, 3]; 

DISP[SwitchTab0]; 

SwitchTabO: 

GOTQ[CaseO], AT[SwitchO, 0]: 

GOTOfCasel], AT[Switch0, 1]; 

G0T0[Case2]. AT[Switch0. 2]; 

GOTO[Case3], AT[SwitchO. 3]; 

G0TO[Case4], AT[SwitchO , 4] : 

GOTO[Case5], AT[SwitchC. 5]; 

G0T0[Case6], AT[Switch0. 5]; 

GOTQ[Case7], AT[Switch0, 7]; 
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* SUBTEST 1 
CaseO: 

SubTest - 1C; 

t *- LDF[CurrentXA. 3. 14]; 

ShortLoop - ShortLocp. G0TQ[.+2. R 000]: 
MemAddr - t; 

t - MemAddr; 

LU *■ (StartWord) - (t) - 1; 

G0T0[Rangel. ALU < 0]; 

G0T0[0utRange]; 

Rangel: 

LU - (EndWord) - (t); 

G0T0[Range2, ALU >• 0]: 

GOTO[OutRange]; 

Range2: 

LU - (Pattern); 

APCTASK&APC «■ (MemAddr) ; 

WriteCS0&2; 


t *• 0C; ’read the word 
APCTASK&APC - (MemAddr); 

REAOCS; 
t *■ CSOata; 

Result - t; 

CSOTest - (CSOTest) - 1; 

GOTO[EndswitchO]; 

* SUBTEST 2 
Casel: 

SubTest - 2C; 

t *■ LDF[CurrentXA, 3, 14]: 

ShortLocp - ShortLoop, GOTO[.’*2. R ODD]; 
MemAddr - t; 

t - MemAddr; 

LU - (StartWord) - (t) * 1; 

GOTO[Range3, ALU < C]; 

GOTO[OutRange]; 

Range3: 

LU - (EndWord) - (t;; 

G0T0[Range4. ALU >* 0]; 

GOTO[OutRange]: 

RangeA; 

LU - (Pattern ); 

APCTASK&APC - (MemAddr); 

WriteCSl; 

t *• 1C; 

APCT4SK&APC - (MemAddr) ; 

REAOCS; 
t - CSOata; 

Result - t; 

CSlTest - (CSlTest) - 1; 

GOTO[EnoswitchO] : 

* SUBTEST 3 
CaseZ: 

SubTest - 3C; 

t «- LDF[CurrentXA, 3. 14]; 

ShortLoop - ShortLocp. GCTO[.-2. R 000]; 
MemAddr - t; 


•CSC Memory 
•ShortLoop selected? 

•Check Range 


•write the pattern 


•CS1 Memory 
•ShortLocp selected? 

•Check Range 


•write the pattern 


•read the word 


•CS2 Memory 
•ShcrtLoop selected 7 


1 ; 

•ChecK. Range 


t - MemAddr; 

LU - (StartWord) - ft': 
GOTO[Ranae5. ALU < C]: 
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GOTO[OutRangej ; 

Range5: 

LU - (EndWord ) - (t); 
GOTO[Range£, ALU >* 0]; 
G0T0[0utRange]: 


Ranged: 

t - (Pattern); 

LU *- 0C: 

APCTASK&APC - (MemAddr); 

WriteCSO&Z: 

t - 3C; 

APCTASK&APC - (MemAddr): 

REAOCS: 
t - CSData: 

Result - t; 

Result - LDF[Result. 0. 4]; 

Pattern - LDF[Pattern, 14, 4]; 

CS2Test - (CS2Test) + 1: 

GOTO[EndswitchO]; 

• SUBTEST 4 
Case3: 

Subtest *■ 4C; 

t - LOF[CurrentXA, 3, 4] ; 

ShortLoop - ShortLoop, GOTO[.-*-2. R ODD]; 
MemAddr - t; 

MemAddr *• (MemAddr) AMO (17C); 

T - (MemAddr) and (16C): 

Tmp «- T; 

lu *• (Tmp ) xor (16C): 
goto[.+2, alu#Q]; 
goto[QutRange]; 

t - LSH[MemAddr. 14]: 

NewTask - t: 

NewTask - ''NewTask! OR (higherTaskEntry): 
t - 0C: 

APCTASkiAPC - (NewTask); 

RETURN; 

Tmp *• wordAddress. AT[higherTaskLoc]; 

STKP - Tmp; 

Tmp - t; 

LU - (STACK&+1) - (t); 

GOTO[EndT, ALU * 0]: 

ShortLoop - ShortLoop. GOTO[BADT, R EVEN]; 
goto[£ndT]: 

8ADT-. BREAKPOINT; 

tndT: 

t - STACKS.-1: 

STACK - t: 
t - Tmp; 

Thd - lowerTaskEntry; 

APCTASK&APC - (Tmp); 

RETURN: 

TmemTest - (TmemTest; * 1. AT[1cwerTaskLoc]; 
GOTO[EndswitChO]; 

Case4 : 

GOTO[OutRange]; ‘Repeat the last test, i.e.. 


‘write the Dattern 

‘This shouldn't be necessary?!:'.!' 


■read the word 


■abreviate expected result 

*t Memory 

■ShortLoop selected? 

■use the LSB 4 bits for T(task) to be tested 
■don't do tasks 16 or 17 

■enter higher task 


■check to ascertain correct t-register 


■ShortLoop for troubleshooting? 


*t - Pattern 
■Result «* t 

■restore task number in t 
■return to task 0 


hit the last memory location again 


Cased; 

GCTO[OutRange]; ‘Reoeat the last test, i.e., hit 


the last memory location again 


Cased; 
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GOTO[QutRange]; ‘Repeat the last test. i.e.. hit the last memory location again 

Case?: 

GOTO[OutRange ]-. ‘Repeat the last test. i.e.. hit the last memory location again 
EndswitchC: 

tests: TASK-. "enable :.icu$e halt 

t *- Result; 

LU - ( Patte r.n ) - (t) ; 

GOTO[£ndi f 0 . ALU * 0j; 

ShortLoop - ShortLoop. GOTO[PATTERNERROR. R EVEN]; ‘ShortLooc for troubleshooting 

goto[EndifO]; 

PATTERNERROR: 

BREAKPOINT: 


EndifO : 

GOTO[mainloop]; 

OutRange: 

ShortLoop *• ShortLoop. G0T0[.+2. R EVEN]; ‘ShortLoop for troubleshooting? 

Bad-MemAddr: 

breakpoint; 
goto[mainloop]: 

* t - (OldXA); 

* CurrentXA *• t; 

* RepeatCounter - (ReoeatCounter) + 1; 

* GOTO[decipherXA]: 
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SUBROUTINE: RelnitCS 


Puts zeros into the Control Store from StartWord 
to EndWord and also puts in the correct parity. 


Re I nitCS : 


ONPAGE[MainPage]: 


CSC 

- ZERO: 

• zero what's to be written 

into CS 

CS1 

- ZERO: 

" zero what's to be written 

into CS 

CS2 

- ZERO; 

* zero what's to be written 

into CS 

t - 

StartWord: 

" Write control store from 

StartWcc' to 'EndWord 

NewTask - t; 



t - 

CSC: 

"WriteCS (write control store location 'NewTask') 

Tmp 

- t: 

•put CS0 in the temp, reg. 


t - 

CS 1: 

•gat CS1 



RCSLoop; 


Tmp * t - (Tmp) XOR (t): 
t - (LDF[CS2.14.4]) XOR (t); 

Tmp - t <- ( LDF[Tmp . 0 ,10] ) XOR (t: 

Tmp - t - (LDF[Tmp.10.4]) XOR (t); 

Tmp - t ^ (LDFpmp.14.2]) XOR (t): 

Tmp *• t *■ (LDF[Tmp ,16,1]) XNOR (t) 

t - (LDF[Tmp,17,1]): 

CS1 - (CS1) XOR (t); 


t - (CS2): 
LU - (CSC): 
APCTASK&APC 
WriteCS0&2; 
LU - (CS1) 


(NewTask); 
at[MainPage8ase ,340] 


‘xor first two CS words 

■xor third CS word with the result 

■start halfing process to get parity 


•Do last part and complement it 

•put parity bit in the t-register 

•exclusive or parity bit into bit 31 of CS (1J 


•force WriteCS to have JA.7 = 1 


of CS1) 


APCTASK&APC - (NewTask); 

WriteCSl: 

t - NewTask *■ (NewTask) + 1, at[MainPageBase,350]; 

•increment address - Force WriteCSl's JA.7*0 
LU - (EndWord) - (t) - 1; * see if done yet 

GOTO[RCSLoop. CARRY]; 

RETURN; 


END: 





EDSmailMem 


l BEGIN J 


go: 

start: 


vL 


Initialize random 
generator registers 


XA * 123 
CA * 33031 
PatternChoice * 1 7 
CurrentPattern * 1 
ShortLoop * 0 
MaxPass * 10 


±, 


CLR M 




Initialize test 
parameter registers 


IndexT: 

IndexTDone: 


bigioop: 


JL 


Index T registers 
by using Notifies 


TestCounter = 0 
PassCount * 0 
CSOTest * 0 
CSITest * 0 
CS2Test * 0 
TmemTest * 0 
RepeatCounter a 0 
CurrentXA * 21000 


7[Task1] * 1 
T[Task2j * 2 

T [Task 16] * 16 
T[Task17] * 17 






NextPattern: 


Exhausted all four \ ves 
pattern types? 


w select zeros pattern 


1 



r 

' 

f 

| select next pattern 

WhatPattern: \ 

reset toggle for checker pattern 

/ 



_ 


no / Is current pattern 
\ selected by user? 


/ 


yes 


Jl 


mainloop 
page 02 


JL 


INC M 


display number of passes 


JL 


increment pass count 




done with all passes? 


EndTest: 


yes 


'JL 


Relnitialize Control Store 


r 


CALL RelniiCS 
page 06 


Passed-EDSmallMem-Test: [~BREA KPOI Nt] Passed aii tests 


END 


XEROX 

D(0) 

MICROCODE SOURCE 

documentation file 

DESIGNER 

REV 

DATE 

PAGE 

ED 

Diagnostic 

EDSmailMem.me 

EDSmallMemOl .sil 

Tom Henning 

1 

11/02/79 

01 













J XEROX 

D(0) 

3R0GRAM NAME 

documentation file 

DESIGNER 

REV 

DATE 

-AGE 

1 ED 

Diagnostic 

EDSmallMem.mc 

EDSmallMem02.sii 

Tom Henning 

1 

11/02/79 

02 













Test for CSO (Control Store word 0) 


SubTest1 



| XEROX 

D(O) 

PROGRAM NAME 

documentation f,le 

DESIGNER 

REV 

DATE 

0 AGE 

1 ED 

Diagnostic 

EDSmallMem.mc 

EDSmallMem03.sil 

Tom Henning 

1 

11/02/79 

03 







go compare Result read against Pattern written 



go compare Result read against Pattern written 


1 XEROX 

D(O) 

PROGRAM NAME 

documentation file 

DESIGNER 

REV 

DATE 

3 AGc 

1 ED 

Diagnostic 

EDSmailMem.mc 

EDSmallMem04.si! 

Tom Henning 

1 

1 1 / 0 2 / 7 9 

04 












SubTest 4 


ory 



go comoare Result read against Pattern written 


1 XEROX 

D(0) 

PROGRAM NAME 

DOCUMENTAT'ON FILE 

DESIGNER 

REV 

DATE 

PAGE 

! ed 

Diagnostic 

EDSmallMem.mc 

EDSma!IMem05.sil 

Tom Henning 

1 

1 1 / 0 2 / 7 9 

05 























Subroutine 



XEROX 

D(0) 

PROGRAM NAME 

documentation file 

I DESIGNER 

REV 

D ATE 

PAGE 

ED 

Diagnostic 

EDSmallMem.mc 

EDSmallMemOS.sii 

1 Tom Henning 

1 

1 

1 1 /02/79 J 

06 

! 












PARI TV 

0 

REVISION 

1 

COMM-ER0 

0 

CVCLECONTROL 

■: 77 

RUN-TIME 

36 

C0MM-ER1 

0 

PCXREG 

4 

PASSCOUNT 

0 

C0MM-ER2 

0 

PCFREG 

4 

MAXP ASS- 

10 

BOOT-ERP. 

0 

DBF; EG 

17 

SUB TEST 

0 

*BQ0TREA30N 

40 

SBREG 




MEMSYNDROME 

0 

MNBR 

o423 





*SSTKP 

•I-"?"? 

■j / / 





3TKP 

0 





*ALURESULT 

■j. 

*XA 

123 

PATTERN 

0 

*3ALUF 

C "? *7 

TESTCOUNTER 

0 

RESULT 

0 

T 26 

7000 

CURRENTPATTER 

1 

MEMADDR 

0 

AA FOVA 

0 





TPC 20 

7777 



STARTWORD 

40U 

CALLER ILCS+7422 



ENDWORD 

6777 

PAGE 

0 





*APC 

7011 

OS0TEST 

0 

PATTERNCHOICE 

17 

:f! APCTASK 

16 

CS1TEST 

0 

SH0RTL00P 

0 

*C1A 

60+1 

p o "|* £ T 

0 



CTASK 

0 

TMEMTEST 

0 



Loaded; E D S’ m a 11M e m 



Time: 03,79 


Step a t @;G0 , 

BP at 

0 : GO+1 





Exit Boo z Run-Prog Read-Cmds Break. UnBreak ClrAddadBP z ClrAllBP z ShowBP$ Go 
S3 Continue Load LdSyms Compare Test-All Test Dump Show-Cmds Write-Cmds 
Virtual 




EDSmalIMem,dls 


21-Feo-80 


Page 1 


£:40:26 


MicroD 3.5 (OS 15) of April 27. 1973 
at 5-0SC-79 10:50:53 

microd.run EDSmallMem 


EDSmal1 Men.DIB 255b instructions written 5-Dec-79 10:50:05 
Total of 355b instructions 


Checking for errors... 

Linking. . . 

Building allocation lists... 

Assigning locations. .. 

355b instructions in rings involving ONPAGE or AT 
Reloading binaries... 

Checking assignment... 

Writing .MB file. . . 

Writing 1 isting . . . 

IM: 


Imag 

Real 

wo 

W1 

W2 

Symbol 

EDSmalIMem.DIB 





C 

11 

22005 

107060 

7 

GO START 

1 

330 

22320 

101057 

7 

( + D 

2 

327 

22001 

123055 

3 

(- 2 ) 

3 

326 

22323 

115053 

3 

(*3) 

4 

325 

47 

7050 

3 

( + 4) 

5 

324 

20020 

101046 

17 

(*5) 

6 

323 

20020 

101045 

3 

(+ 6 ) 

7 

322 

24020 

101042 

3 

(+7) 

10 

321 

24020 

101040 

7 

(+ 10 ) 

11 

320 

24020 

101037 

13 

( + 11 ) 

12 

317 

26020 

101035 

13 

( + 12 ) 

13 

316 

26020 

101033 

7 

( + 13) 

14 

315 

22 

41031 

3 

( + 141 

15 

314 

24374 

43027 

17 

( + 15) 

16 

313 

22050 

125024 

13 

(-16) 

17 

312 

0 

43022 

3 

(-17) 

2 C 

311 

12050 

125020 

3 

(* 20 ) 

21 

310 

0 

770 13 

3 

INDEXT 

22 

305 

13550 

25010 

3 

( + 1 ) 

23 

304 

50 

24230 

0 

(* 2 ) 

24 

15 

12174 

71005 

3 

(-3) 

25 

303 

1C050 

125004 

13 

(+4) 

26 

302 

10303 

101002 

13 

(+5) 

27 

301 

101*47 

21000 

13 

(+ 6 ) 

30 

300 

50 

25401 

0 

(W) 

31 

3 60 

10002 

111154 

17 

( + 10 ) 

32 

356 

10150 

3153 

17 

(+m 

33 

355 

40150 

65150 

17 

( + 12 ) 

34 

364 

10003 

121147 

17 

(-13) 

35 

363 

10147 

21144 

17 

(*14) 

36 

362 

50 

25401 

0 

( + 15) 

27 

3 70- 

50 

25017 

3 

(-16) 

40 

307 

13050 

125014 

3 

( + 17) 

41 

306 

50 

25021 

3 

(+ 20 ) 

42 

14 

50 

25064 

1 

INDEXTDONE 

43 

132 

14217 

41110 

5 

SIGLOOP 

4 4 

i 44 

50 

24101 

1 

(- 1 ) 

45 

141 

1 4C00 

103042 

5 

(- 2 ) 

46 

121 

15020 

101162 

4 

(-3) 

4 i 

71 

47 

5147 

0 

(-4) 

50 

52 

21050 

165123 

Q 

(-5 ) 

R 1 

51 

21450 

25102 

4 

(-6 ) 

52 

41 

50 

242 14 

0 

(-7) 

53 

5 

50 

25100 

1 

(- 10 ) 

54 

140 

12150 

55106 

15 

whatpattern 

55 

143 

14250 

65104 

5 

(- 1 ) 

56 

142 

50 

24150 

0 

(+ 2 ) 

5 7 

55 

1 - C 5 0 

125113 

1 

THISPATTERN 

50 

54 

14174 

103054 

5 

NEXT PATTERN 

5 i 

7 

50 

25342 

3 

ENDTEST 




EDSnalIMem.dls 


21-Feb-SO 3 : *iC : 26 


Fage 2 


52 

b 

1C 

50 

25022 

0 

passed-edsmallmem 

52 


145 

20020 

101031 

12 

MAINLOOP 

6 - 


214 

16150 

124477 

10 

( + D 

55 


35 

2105C 

12 5 C 2 7 

16 

(- 2 ) 

66 


213 

50 

240 77 

1 

(+3) 

67 


137 

14174 

103054 

5 

(-4) 

70 


136 

2215C 

65024 

12 

("5) 

71 


212 

22050 

125071 

15 

(+°) 

72 


134 

22150 

65223 

6 

(-7) 

73 


211 

23174 

45400 

4 

(MO) 

7 - 


135 

23174 

67134 

5 

(- 11 ) 

75 


155 

23150 

65132 

1 

(- 12 ) 

75 


155 

22050 

125130 

5 

(-13) 

77 


154 

22150 

65126 

5 

( + 14) 

100 


153 

22050 

125124 

11 

(-15) 

101 


152 

14200 

43123 

1 

(-15) 

102 


151 

50 

24070 

0 

(*17) 

103 


35 

12020 

101076 

4 

(+ 20 ) 

104 


34 

14200 

45120 

1 

TRY 1 

105 


15C 

50 

24064 

c 

( + U 

106 


33 

14150 

65161 

12 

(+ 2 ) 

107 


270 

12050 

125077 

4 

(+3) 

no 


32 

14200 

51116 

1 

TRY2 

111 


147 

50 

24061 

0 

( + D 

112 


31 

16150 

124436 

4 

(+ 2 ) 

113 


16 

14150 

65165 

16 

( + 3) 

114 


272 

12050 

125163 

6 

( + 4) 

115 


271 

17050 

125077 

4 

(+5) 

116 


17 

15150 

65170 

2 

CHECKERO1 

117 


274 

12050 

125166 

6 

(*D 

120 


273 

17050 

125077 

4 

( + 2 ) 

121 


30 

14200 

61115 

1 

TRY3 

122 


146 

50 

24065 

1 

( + 1 ) 

123 


133 

22150 

65176 

12 

( + 2 ) 

124 


277 

12050 

125174 

6 

(+3) 

125 


276 

20150 

65173 

2 

(+4) 

126 


275 

13150 

125077 

c 

(+5) 

127 


37 

22172 

15156 

12 

DECIPHERXA 

130 


267 

50 

25641 

C 

( + D 

131 

9 

20 

5G 

25155 

2 

SWITCHTABO 

132 

9 

21 

50 

25147 

1 

( + D 

133 

3 

22 

50 

25160 

1 

( + 2 ) 

134 

9 

23 

50 

2501C 

0 

u 

(+3) 

135 

9 

24 

50 

25013 

2 

( + 4) 

136 

9 

25 

50 

25C15 

2 

(+5 ) 

137 

9 

25 

50 

25016 

2 

(+5) 

140 

9 

27 

50 

25020 

2 

( + 7) 

141 


255 

2 C 00 C 

103153 

12 

CASEO 

142 


255 

22167 

71150 

12 

( + D 

143 


254 

16150 

124507 

10 

(+ 2 ) 

144 


42 

12050 

125106 

0 

(+3) 

145 


43 

12150 

65147 

2 

( + 4) 

146 


253 

25550 

25145 

16 

(+5) 

147 


262 

50 

24325 

0 

(+ 6 ) 

150 


52 

50 

25034 

2 

(* 7 ) 

151 


53 

27450 

25143 

2 

RANGE 1 

152 


251 

50 

24251 

1 

(* 1 ) 

153 


131 

50 

25034 

2 

(+ 2 ) 

154 


130 

12150 

25141 

6 

RANGE2 

155 


26C 

12147 

21136 

2 

( + D 

156 


257 

47 

31534 

2 

( + 2 ) 

157 


256 

20 

-1133 

2 

( + 3) 

ISC 


255 

12147 

21120 

2 

(+4) 

16 1 


254 

4 7 

£ Z 3 i / 

2 

(+5) 

152 


253 

5415C 

55125 

15 

• (+6' : 

153 


252 

12050 

125122 

12 

(W) 

164 


251 

25050 

125121 

2 

(-13) 

155 


250 

50 

25143 

0 

( + 11 ) 

155 


153 

200C0 

105144 

11 

CAS E 1 

157 


152 

22167 

71142 

11 

( + D 

170 


151 

16150 

1244*7 

11 

(+2) 

171 


125 

1205C 

125056 

1 

{ 4 . 2 '• 

172 


127 

12150 

65141 

1 

(+ 4 ) 

173 


160 

25550 

25137 

15 

(-5) 

17 4 


157 

50 

24315 

0 

(+*» 

17 5 


46 

50 

25034 

2 

7 5 



EuSmal lMerc. dl s 
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Page 


176 

47 

27450 

25060 

2 

RANGE3 

177 

230 

50 

2425 1 

1 

( + 1 ) 

2CC 

125 

50 

25034 

2 

(- 2 ) 

201 

124 

12150 

25C57 

6 

RANGE 4 

202 

227 

12147 

21054 

2 

( + U 

203 

226 

47 

33452 

2 

(+ 2 ) 

204 

225 

0 

43051 

2 

(-3) 

205 ' 

224 

12147 

21046 

2 

( + *> 

206 

223 

47 

35445 

2 

(-5) 

207 

222 

54150 

65042 

16 

(+ 6 ) 

210 

221 

12050 

125040 

12 

(+7) 

211 

220 

25050 

125036 

5 

(* 10 ) 

212 

217 

50 

25143 

C 

(Ml) 

213 

170 

20000 

107157 

11 

CASE2 

214 

• 167 

22167 

71155 

11 

(-D 

215 

166 

15150 

124446 

11 

( *2 ) 

216 

122 

12050 

125047 

1 

( + 3) 

217 

123 

12150 

65153 

1 

(.4) 

220 

165 

25550 

25151 

15 

(+5) 

221 

164 

50 

24310 

0 

(+ 6 ) 

222 

44 

50 

25034 

2 

( + 7 ) 

223 

45 

27450 

25113 

2 

RANGES 

224 

245 

50 

24375 

0 

(+ 1 ) 

225 

77 

50 

25034 

2 

( *2 ) 

225 

76 

12150 

65110 

6 

RANGE 6 

227 

244 

20 

1107 

2 

( + 1 ) 

230 

243 

12147 

21105 

2 

(* 2 ) 

231 

242 

47 

31502 

2 

(+3) 

232 

241 

0 

47101 

2 

(*4) 

233 

240 

12147 

21076 

2 

(+5) 

234 

237 

47 

35475 

2 

(- 6 ) 

235 

235 

54150 

65072 

16 

( *7) 

236 

235 

12050 

125070 

12 

( + 10 ) 

237 

234 

12162 

133066 

12 

( + 11 ) 

240 

233 

12163 

123065 

6 

(M2) 

241 

232 

25050 

125063 

12 

( + 13) 

242 

231 

50 

25143 

0 

(M4) 

243 

204 

20000 

111007 

12 

CASE3 

244 

203 

22163 

41005 

12 

( + D 

245 

202 

16150 

124567 

10 

( *2 ) 

246 

72 

12050 

125166 

0 

(+3 ) 

247 

73 

12200 

137002 

2 

(+*) 

250 

201 

12200 

75000 

2 

( + 5) 

251 

200 

10050 

125177 

15 

(M) 

252 

177 

10400 

35175 

15 

(M) 

253 

176 

50 

24171 

0 

(*101 

254 

74 

50 

25034 

2 

(Ml) 

255 

75 

12174 

71172 

1 

( * 12 ) 

256 

175 

10050 

125170 

11 

(-13) 

257 

174 

10302 

101166 

11 

(M4) 

260 

173 

20 

41165 

1 

( + 15) 

251 

172 

10147 

21163 

11 

( + 16) 

262 

171 

50 

254C1 

0 

( + 17) 

263 

0 40 

10002 

111176 

17 

(+ 20 ) 

264 

277 

10150 

3174 

17 

(+ 21 ) 

265 

376 

10050 

125173 

17 

(+22) 

266 

375 

43450 

25170 

17 

(-23) 

267 

374 

50 

24004 

0 

( + 24) 

270 

3 

16150 

124412 

10 

(-25) 

271 

5 

50 

25005 

0 

(-25) 

272 

Cl 4 

50 

250C5 

0 

BAOT 

273 

2 

42150 

55157 

17 

ENDT- 

274 

373 

40050 

125164 

17 

( + D 

275 

372 

10150 

55163 

17 

(*2) 

275 

271 

10002 

121161 

17 

(-3) 

277 

370 

10147 

21155 

17 

(M) 

200 

367 

50 

25401 

0 

(-5) 

201 

9 50 

27050 

125114 

12 

(+ 6 ) 

202 

246 

50 

25143 

0 

( + 7) 

203 

205 

50 

25034 

2 

CASE A 

204 

206 

50 

25034 

2 

CASE5 

305 

207 

50 

25034 

2 

CASES 

305 

210 

50 

25034 

2 

CASE7 

1 ■i 7 

51 

50 

253 16 

2 

ENDSWITCHC TESTS 

210 

2 4 7 

12150 

55 400 

10 ‘ 

( + D 

211 

52 

13 4 50 

25033 

0 

(-2 ; 
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312 

215 

50 24130 

0 

313 

55 

15150 124537 

10 

314 

57 

50 25131 

0 

315 o 

56 

50 25131 

C 

316 

54 

50 25112 

1 

317 

215 

15150 124557 

10 

320 b 

57 

50 25154 

0 

321 

56 

50 25112 

1 

322 

361 

26176 101140 

17 

323 

350 

10175 101137 

3 

324 

257 

10176 101135 

7 

325 

256 

24150 55132 

17 

326 

355 

10050 125130 

13 

327 

354 

26150 55127 

17 

330 

353 

1005C 125125 

17 

331 

352 

10150 55122 

*3 

332 

351 

10450 165115 

17 

333 

347 

10463 63115 

7 

334 

346 

10465 157112 

17 

335 

345 

10463 153110 

17 

336 

344 

10461 171106 

17 

337 

343 

10760 175105 

17 

340 

342 

10160 77103 

17 

341 

341 

10450 125026 

0 

342 

13 

10150 55077 

7 

343 

337 

26150 25074 

17 

344 

336 

10147 21072 

13 

345 

335 

47 31500 

3 

346 S 

340 

10150 25071 

3 

347 

334 

10147 21066 

13 

35C 

33 3 

47 33520 

3 

351 9 

350 

11050 155064 

13 

352 

332 

27550 25063 

3 

353 

331 

50 24026 

0 

354 

12 

50 25401 

0 

Page 

0: 355 

locations used. 

RM; 




20 


PASSC0UNT 


21 

10 

MAXPASS 


22 


SUBTEST 


23 


TESTCOUNTER 


24 


CA 


25 


XA 


25 


CURRENTXA 


27 


OLOXA 


30 


CS0TEST 


31 


CS1TEST 


32 


CS2TEST 


33 

400 

STARTWORD 


34 

6777 

ENDWORD 


35 


REPEATCOUNTER 

36 


TMEMTEST 


37 


cso 


40 


CS1 


41 


C52 


42 


NEWTASK 


43 


TMP 


44 


MEMADDR 


4 5 


PATTERN 


46 


RESULT 


47 

17 

PATTERNCHOICE 

50 

1 

CURRENTPATTi 

;RN 

c 1 

1 

PATTERNTRY 


52 

177777 

ONES 


53 

125252 

CHECKER! 


54 

52525 

CHECKERO 


55 

r\ 

TOGGLE 


55 

0 

shortloop 


c 7 

i 

REVISION 


5C 

36 

RUN-TIME 


51 


RLC9 



Time: 11 seconds; C error(s 


(+3) 

(+*) 

( J.C -) 

PATTERNERR0R 
END r F0 
OUTRANGE 
BAD-MEMADDR 
( + 1 ) 

REINITCS 

(- 1 ) 

(-2) 

(+3) 

( + *) 

(+5) 

(+ 6 ) 

( + 7 ) 

(- 10 ) 

(mil) 

( + 12 ) 

( + 13) 

( + 14) 

( + 15) 

( + 16) 

( + 17 ) 

RCSLOOP 

( + D 
(+2) 

(+3) 

(+ 4 ) 

(+5) 

(+5) 

(+7) 

( + 10 ) 

( + 11 ) 

( + 12) 

22 free 


' warning (s''. 11747 words free 
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EDSmallMemlog.MIDAS : Logger for EDSmallMem program 

Sy: T, Henning Nov. 20 1S72 


.start L X AopendOutput EDSmalIMem.report; 

L X WriteMessage _*****•**»*• START EDSmallMem Test 
L X WriteOT; 

L X WriteMessage *.*«**.»***.. . 

L X Skip .continue; 


.breakpoint L X AppendOutput EDSmallMem.report: 

L A18 SkipNE BADT; 

L X Skip .badt; 

L A18 SkipNE PATTERNERROR; 

L X Skip .patternerror; 

L A18 SkipNE PASSED-EDSMALLMEM-TEST; 

L X Skip .passtest; 

.notmybreak L X AppendOutput EDSmalIMem.report: 

L X WriteMessage FAILed; Not at my breakpoint 

L X WriteMessage ' Parity « ; 

R AO Val; 

L X WriteMessage: 

L X WriteMessage 

L X WriteMessage ' CIA * : 

R A18 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CTASK * ; 

R A19 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' APCTASK 3 ; 

R A17 Val; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ' APC 3 

R A16 Val; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ’ TPC 3 ; 

R A13 Val; 

L X WriteMessage; 

L X WriteMessage -; 

L X CloseOutput: 

L X Exit; 


.aadt L X WriteMessage *** FAILed: at my Breakpoint 

L X WriteMessage * T register index miscompareo 

.bad L X WriteMessage ’ SL'BTEST 3 ; 

R B4 Val; 

L X WriteMessage; 

L X WriteMessage -; 

L X WriteMessage ' MEMAODR 3 : 

* R C11 Val ; 

L X WriteMessage: 

L X WriteMessage 

L X WriteMessage ' PASSCOUNT * 

P 82 Val; 

L X WriteMessage; 

L X WriteMessage 


L X Skip .continue: 









EDSma<IMemLog.micas 
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oatternerror 

L 

L 


L x WriteMessag9 *** FAILed: at ny Breakpoint 
X WriteMessage * RESULT read did not match PATTERN written 

X BackSkip .bad; 


. passtest 


L X WriteMessage- PASSed EDSmalH'en Test 

L X WriteDT; 

L x WriteMessage . . 

L X Skip .continue; 


.centinue 


L X WriteMessage 
L X CloseOutout: 

L X DisplayOn; 

L X Confirm: 

L X TimeOut lOCCOOOC; 

L X Continue. 

L X Skip 2; 

L X ShowError Program failed to CONTINUE.: 
L X 8ackSkip .notmybrea*; 

L X OisplayOff; 

L X BackSkip breakpoint; 
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L A19 Val 0 
L X Confirm 

L X Load EDSmallMam: * 

L BO Addr REVISION 
L B1 Addr RUN-TIME 
L B2 Addr PASSCOUNT 
L B3 Addr MAXPASS 
L 84 Addr SUBTEST; 

L 89 Addr XA; 

L BIO Addr TESTCOUNTER; 

L 811 Addr CURRENTPATTERN: 

L B16 Addr CSOTEST; 

L B17 Addr CS1TEST 
L 818 Addr CS2TEST 
L 819 Addr TMEMTEST 

L C9 Addr PATTERN 
L CIO Addr RESULT 
L Cll Addr MEMAODR 
L 03 Addr STARTWORD 
L C14 Addr ENDWORO 
L C16 Addr PATTERNCHOICE; 

L C17 Addr SHORTLOOP; 

L X DisplayOn; 

L X TimeOut 10000 
L X SS GO 
L X Skip 1 

L X ShowError Single-step stuck at GO 
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X 

*** *n******* Revision 1 ************ 


* * * 
* * * 
* * * 
* * * 
* * * 


EDTask.mc : The Task Switching and Register Addressing Test Program 
Purpose : To test task mechanism and register addressing modes. 

Hardware Configuration : Standard 4 CPU boards 
Written by : Tom Horsley. Dec. 12, 1977 
Modified by : Bill Kennedy, Feb. 23, 1978 
Added control store parity. 

Took code off page 0. 

Modified by : Bill Kennedy, Apr. 6, 1978 

Stayed from a KERNEL register and added meaningful tags to Breakpoints. 
Modified by : Chuck Thacker. Jan. 25, 1979 
Changed for 86 configuration. 

Modified by : Chuck Thacker, June 16, 1979 
Changed to avoid stack overflow. 

Modified by : Camellia Chan, Mar. 4, 1980 

Standardize title page, code format, labels and looping. 


i******** 


•SubTest Description: 

* SubTest 1: In the READ test, confirm that the contents (Result) of the register read 
(TargetRegister) match those expected (TargetValue). 

In this test, the absolute address of the register to be tested is calculated using 
RMOD. RSEL, TASK, STKSHFT, and REGSHIFT from XA. Then control store instruction 760 
is stuffed with an appropriate read instruction. Finally a random value from XB is 
written into the absolute register location via the stack, a switch is made to the 
relevant task and the instruction at location 760 is executed. 


* SubTest 2: In the StackCompare test, confirm that the expected stack pointer (ExpectedStkp) 

matches the value of the STKP found immediately after the read or write instruction 
(SaveStkp). 


* SubTest 3: In the WRITE test, confirm that the contents (t) of the register written 
(TargetRegister) match those expected (TargetValue). 

The write test is similar to the read test except that location 762 is stuffed ana 
the test is not performed on some of the special hardware registers. 


Note: Registers outside the range R46 to R360 are not read or written in any test. 


•Breakpoints : 

* ReadFail: the contents (Result) of the register read (TargetRegister) do not match those 

expected (TargetValue). 

* StackFail: the content (ExpectedStkp) does not match the value of the STKP found immediatley 

after the read or write instruction (SaveStkp). 

• WriteFail: the contents (t) of the register written (TargetRegister) do not match those 

expected (TargetValue). 

• Passed-EDTask-Test: Passed all tests, and all passes. 


*■.*# + #**##***#***##********'* Hm*******************.************#*************************** 

* ShortLoop Logic Analyzer Sync Points at Control Store address: 

• ReadFail: Control Store address 770 at SubTestl. 

* StackFail: Control Store address 1546 at StackCompare. 

• WriteFail; Control Store address 772 at SubTest3. 



edtask.me 


10-Apr-80 16:10:57 


Page 2 


'*********** 


•Subroutine Description: 

• FirstSixBits: 

• LastTwoBitS: 

• Newlnstx: 

• PrimeTarget: 

• Readiest: 

• SetUpRead: 

• StackCompare: 

• WriteTest: 


deciphers the first six bits of the absolute R-register from Target Task 
inserts the last two bits of the absolute R-register from t. 

Nlewlnst is now done when control is at 2001b+4*n, n = 0-377b. 

prime the target register with a value. 

executes the read test. 

create environment for read test. 

make sure the stack pointer is correct. 

sets up and executes the write test. 


•Special Reg. Definition: 
• XA: The argumei 


of the test 

.are built up 

from the r 

RMOD 

= 

XA[0] 

RSEL 

= 

XA[1-6] 

TASK 

* 

XA[7-12] 

PCF 

s 

XA[13-15] 

DB 

= 

XA[12-17] 

SB 

= 

XA[12-17] 

STKSHFT 

x 

XA[7] 

REGSHIFT 

z 

X A [ 10 ] 

STKP 

= 

XA[10-17] 

Rd/Wr 

= 

XA[ 13] 


XA is used to choose a task and a register addressing mode (RMOD and RSEL). 

It is also used to decide whether to test reading or writing the register and to 
provide starting values for such registers as DB, SB.PCF and STKP. 

InnerioopCounter: 16 bits inner loop counter. 


Mote that the random number generator has been constructed so that it produces each 
number in the range [0. 64K) once and only once before repeating any number. Thus it 
is guaranteed to exhaust all possible combinations of the fields derived from it each 
time the inner loop is exhausted. 


• PassCount: Outer loop pass counter, 

incremented each time when InnerLoopCounter reached the limit. 

• MaxPass: number of times outer loop is to repeat before breakpointing. 


* NewRand: 1 = change the pseudorandom number. 

0 = keep the current pseudorandom number. 


• ShortLoop: At any breakpoint the user has the option of changing the value of ShortLoop 

to 1, which will cause the current subtest to loop endlessly. If ShortLoop is a 
then the program will proceed to the next subtest. 


*************1 


************************************ 


% 


zero 
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* 


****** 




•INITIALIZATION: 


INSERT[D0LANG]; 

TITlE[EDTask]; 

SET[MainPage, 2]; 

SET[SubPagel. 1]; 

SET[splb,1shift[SubPagel,10]]; 
S£T[SubPage2, 4]; 
SET[sp2b,lshift[SubPage2,10]]; 
SET[SubPage3, 3]: 


•Task and register test program, ED revision 
•definition of Main Program page 

•definition of Subroutine page 1 

•definition of Subroutine page 2 

•definition of Subroutine page 3 


Switch Base: 


SET[Specia1BigSwitch. 1120]; 
SET[SpecialSma11Switch, 1140]; 
SET[outerSwitch. 1240]; 
SET[StkSwitchO, 1460]; 
SET[StkSwitchl, 1500]; 
SET[RegBase, 40]; 


•switch base for special register selection 
•switch base for special register 
•base of switch on RSEL[4:5] 

•stack switch base 
•stack switch base 


Off sets: 


SET[InitialStkpOffset, 0]; 

SET[TargetValueOffset. 1]; 

SET[TmpOffsot, 2]; 

SET[SaveStkp0ffset, 3]; 

SET[ResultOffset, 4]; 

SET[ReentryOffset, 5]; 

****.,.**.,*****»•.»*.***..* R-registers: *****************«*****«****^ 

RV[Revision,0 ,1] PREVISION 1 

RV[Run-Time,1, 5] *Run-Time is 5 seconds 


RV[InnerLoopCounter,2.0]; 
RV[PassCount,3]; 

RV[MaxPass,4, 2]; 
RV[NewRand,5,1]; 

RV[ShortLoop.6.0]; 

RV[SubTest.7] ; 


•16 bits inner loop counter 

•outer loop pass counter incremented each time when 
• InnerLoopCounter reached the limit 

•number of times outer loop is to repeat before breakpointing 

•1 = change the pseudorandom number 

•0 = keep the current pseudorandom number 

•1 = loop endlessly on current subtest 

•0 = proceed to the next subtest 

•current location of test 


RV[DBTest.ll]; 
RV[MiscTest,12] 
RV[PCFTest,13]: 
RV[RRTest.14]; 
RV[SBTest,15]; 
RV[StkTest,16] : 


•number of 
•number of 
•number of 
•number of 
•number of 
•number of 


times the DB register test has executed 
times the Misc registers test has executed 
times the PCF register test has executed 
times the straight register test has executed 
times the SB register test has executed 
times the stack register test has executed 


RV[CS0,17]; 

RV[CS1.20]; 

RV[CS2,21]; 

RV[DeltaStack,22]; 

RV[DummyRegiste r.23]; 

RVT ExpectedStkp .24]; 

RV[FieldMas k.25]: 
RV[InitialCycCtl.26]; 

RV[InstructionAddress,27]; 
RV[NewTask.30]; 
RV[RegShiftFlag.31]; 
RV[StackShiftFlag,32]; 
RV[StkpTest,33]; 

RV[-Stuf fTmp .34]; 
RV[TargetRegis ter,35]; 
RV[TargetTask,36]; 


•temporary storage for first word of a control store location 
•temporary storage for second word of a control store location 
•temporary storage for third word of a control store location 
•amount by which stack is to be incremented or decremented 
•used as a place holder in instruction to be stuffed 
•value of STKP after stack operation 

•indicates part of result to be tested (usually all l's) 

•value to be stuffed into cyclecontrol immmedialtly preceding 
• read test 

•location of CS instruction to be stuffed 
•task switching contents for APC&APCTASK 
•indicates that the REGSHIFT function is to be used 
•indicates that the STACKSHIFT function is to be used 
•indicates that the STKP is to be checked after the test 
•used in the stuff operations 

•the absolute address of the register to be tested 
•the task that will be briefly entered for test purposes 
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RV[InitialStkp.40,ADD[RegBase, InitialStkpOffset]]; 
RV[TargetValue,41,ADD[RegBase. TargetValueOffset]]; 
RV[Tmp,42,ADD[RegBase. TmpOffset]]: 

RV[SaveStkp,43,ADD[RegBase, SaveStkpOff set]]; 

RV[Result,44,ADD[RegBase, ResultOffset]]; 

RV[WriteTestReentryLoc.45.ADD[RegBase, ReentryOffset]]; 


•value of STKP before stack operation 
•value to be stuffed in register 
•used to load APC in remote task 

• (different for each task) 

•contents of STKP placed here by upper task 
•contents of target register placed here 

• by upper task 

•location in task 0 to return to 


RV[CA,52] 
RV[CB,53] 
RV[XA ,54] 
RV[XB , 55] 


•used in random number generation, A*XA + CA 
•used in random number generation, A*XB + CB 
•random number generated via A*XA + CA 
•used in random number generation, A*XB + CB 
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i**»************ 


**** MAIN routine: 
ONPAGE[MainPage]; 


go: 

start: ‘Randomlnit (Initialize random generator registers: XA «- 123, CA <- 33031 ) 

XA - AND@[0377, 123]C: *Loadl 6 Bits (XA - 123) 

XA - (XA) OR (AND@[177400, 123]C); 

CA «■ AND@[0377, 33031]C; *Loadl 6 BitS (CA - 33031 ) 

CA - (CA) OR (AND@[177400, 33031]C); 

•Randomlnit (Initialize random generator registers: XB «- 456, CB *■ 33035) 

XB - AND@[0377, 456]C: 

XB - (XB) OR (AND@[177400, 

CB - AND@[03 77, 33035JC; 

CB «■ (CB) OR (AND@[ 177 400, 

CLEARMPANEL; 

PassCount 0C; 

RRTest «* 0C ; 

PCFTest «• 0C; 

SBTest 0C; 

DBTest *- 0C; 

StkTest «- OC; 

MiscTest «- OC: 

WriteTestReentryLoc ♦- AND@[0377. 7 7 2 ] C ; *Loadl 6 Bits (WriteTestReentryLoc «- 772 ) 
WriteTestReentryLoc *■ (Wri teTestReentryLoc) OR (AND@[ 177400 , 772]C); 

bigLoop: INCMPANEL; 

t «- PassCount *• (PassCount) + 1; 

IU *■ (MaxPass) - (t): * check for maximum pass counter reached 

GOTO[mainLoop, ALU >= 0]; 

Passed-EDTask-Test: BREAKPOINT, goto[go]; 

***** SUBTEST0 ***** 
mainLoop: SubTest *- 0C; 

RegShiftFIag - 0C: 

StackShiftFlag <- 0C; 

StkpTest «- 0C: 

InitialStkp «- 20c; 

F iel dMask *■ (ZERO) - 1 ; 


*Loadl6Bits (XB «• 456 ) 

456]C ) ; 

*Loadl6Bits (CB * 33035) 

330353C); 


LU «• ( NewRand); 

GOTO[SetTTask, ALU = 0]; 

InnerLoopCounter «- (InnerLoopCounter) + 1; 

GOTO[bigLoop . CARRY]; 

•Random (4005*XA + CA mod 2**16) 
t - XA; 

t - (LSH[XA, 2 ]) + t; 
t «■ (LSH[XA, 13]) + t; 
t «- (CA) + t ; 

XA - t; 

SetTTask: t «- LDF[ XA, 7, 4]; 

TargetTask *• t; 

lu *■ (TargetTask) - (16C); 

GOTO[ChooseTest, ALU < C]; 

GOTO[mainLoop]; ‘don't touch tasks 16 or 17 (kernel) 

•choose test 

ChOOSeTest: LU - (XA) AND ( 100000C) ; 

GOTO[OutSwitch, ALU # 0]; 

•xxxxxxRR 

LOADPAGE[SubPage3]: 

CALLP[FirstSixBits]; 

RRTest ♦* (RRTest) + 1; 

G0T0[RunSubTest] : 
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* Switch4 (Use DISPATCHfXA. 5. 2] to select cases. Locate switch table at outerSwitch.) 
OutSwitch: SET[SwitchlO , outerSwitch]: 

DISPATCH[XA. 5. 2]; 

DISP[SwitchT ablO]; 

SwitchTablO: 60TO[CaselO], AT[SwitchlO. 0]; 

GOTO[Casell] , AT[SwitchlO, 1]: 

GOTO[Casel2], AT[Switchl0, 2]: 

GOTO[Casel3] , AT[SwitchlO, 3]; 

•xxxxxxPP - PCF 

CaselO: LOADPAGE[SubPage3]; 

CALLP[FirstSixBits]; 
t - LDF[XA, 13, 2].; 

LOADPAGE[SubPage3]; 

CALLP[LastTwoBits]; 
t - LDF[XA, 13. 3]; 

Imp t; 

PCF ♦* Tmp; 

PCFTest - {PCFTest) + 1; 

GOTO[RunSubTest]: 

'"xxxxxxSS - SB 

Casell: LOADPAGE[SubPage3]; 

CALLP[FirstSixBits]; 
t - LDF[XA, 12, 2]; 

LOADPAGE[SubPage3]; 

CALLP[LastTwoBits]; 
t - LDF[XA, 12, 6]; 

Tmp ♦* t; 

SB •* Tmp; 

BBFB; *to advance SB to SBX 

S8Test - (SBTest) + 1; 

6 QTO[RunSubTest]; 

"xxxxxxDD - OB 

Casel2: LOADPAGE[SubPage3]; 

CAL LP[FirstSixBits]; 
t - LDF[XA, 12, 2]: 

LOADPAGE[SubPage3]; 

CALLP[LastTwoBits]; 
t ~ LDF[XA, 12. 6]: 

Tmp «- t; 

DB - Tmp; 

BBFB; *to advance DB to DBX 

DBTest ♦- (DBTest) + 1; 

GOTO[RunSubTest]; 

Casel3: t 3C; 

LU «- (LDF[XA, 1, 2]) - (t): 

GOTO[SpecialReg. ALU # 0]; 

* SSSSSSSS - STKP 

LOADPAGE[SubPage3]; 

GOTOP[.+1]; 

OMPAGE[SubFage3]; 

t «■ LDF [ X A , 10, 1C]; 

TargetRegister - t; 
t - LDF[XA. 7, 1]; 

StackShiftFlag *■ t; 
t «- LDF[XA, 10. 10]; 

ExpectedStkp *- t; 
t *- (ExpectedStkp ); 

InitialStkp *■ t; 

lu “ (InitialStkp) and not (37c); 
goto[.+3,alu#0]; 

AbandonTest: 1cadpage[mainPage]; 

gotop[mainLoop]; "don’t load stkp with <40b 

LU - (StackSh iftFIag); 

GOTO[StkSwitchB, ALU # 0]; 
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* Switch4 (Use DISPATCH[XA, 3. 2] to select cases. Locate switch table at StkSwitchO.) 

StkSwitchA: SET[Switch20, StkSwitchO]; 

DISPATCH[XA, 3, 2]; 

DISP[SwitchTab20]; 

SwitchTab20: GOTO[Case20]. AT[Switch20. 0]; 

GOTO[Case21], AT[SwitCh20, 1]; 

GOTO[Case22], AT[Switch20, 2]: 

GOTO[Case23], AT[Switch20, 3]; 

Case2C: OeltaStack *■ 0C; 

GOTO[DltStack]; 

Case21: DeltaStack «- 1C; 

GOTO[DltStack]; 

Case22: DeltaStack - (ZERO) - 1; 

GOTO[DltStack]; 

Case23 : t - 2C; 

DeltaStack «- (ZERO) - (t); 

GOTO[DltStack] ; 

* Switch4 (Use DISPATCH[XA, 3, 2] to select cases. Locate switch table at StkSwitchl.) 

StkSwitchB: SET r Switch30. StkSwitchl]; 

DISPATCH[XA, 3. 2]; 

DISP[SwitchTab30]; 

SwitchTab30: GOTO[Case30], AT[Switch30. 0]; 

G0T0[Case31]. AT[Switch30, 1]; 

GOTO[Case32], AT[Switch30, 2]; 

GOTO[Case33]. AT[Switch30, 3]; 

Case30: DeltaStack «- 2C; 

GOTO[DltStack]; 

Case31: DeltaStack - 3C; 

GOTO[DltStack]; 

Case32: LOADPAGE[MainPage]; 

GOTOP[mainLoop]; 

Case33 : t *■ 3C ; 

DeltaStack «- (ZERO) - (t); 

D1tStack : LU - (XA) AND (000020C); 

GOTO[SubtractStk, ALU M 0]; 

•add DeltaStack to lower 4 bits of ExpectedStkp with no carry into upper bits 
t *• (ExpectedStkp) AND (17 C ); 

ExpectedStkp *- (ExpectedStkp) AND NOT (17C); 
t «- (Del taStack) + (t) ; 

Tmp t; 

t <- (Tmp) AND (17C) ; 

ExpectedStkp *• (ExpectedStkp) OR (t); 

GOTO[SetStkp] ; 

•subtract DeltaStack from lower 4 bits of InitialStkp with no carry into upper bits 
SubtractStk: t «- (InitialStkp) AND (17C); 

InitialStkp *- (InitialStkp) AND NOT (17C); 

Tmp t: 

Tmp *- (Tmp ) + (20C ) ; 
t *• DeltaStack; 

Tmp +■ (Tmp ) - (t) ; 
t *- (Tmp) AND (17C) ; 

InitialStkp *■ (InitialStkp) OR (t); 

SetStkp : StkpTest «* 1C; 

StkTest (StkTest) + 1; 

LOADPAGE[2]; 

GOTOP[• T 1] : 

ONPAGE[2]; 

GOTO[RunSubTest]; 


Special Registers 
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SpecialReg: t *• LDF[XA, 10. 1]; 

RegShiftFlag - t; 

LU «- (NewRand); 

GOTO[SetTarValue, ALU * 0]: 

♦Random (4005*XB + CB mod 2**16) 
t *• XB; 

t «- (LSH[XB. 2]) + t; 
t «- (LSH[XB , 13]) + t; 
t «- (CB) + t; 

XB «- t; 

SetTarValue : t *■ (XB); 

TargetVal ue «- t; 

LU - (XA) AND (040000C); 

GOTO[Smal1Switch, ALU ti 0]: 

* Switch8 (Use DISPATCH[XA, 2, 3] to select "cases. Locate switch table at SpecialBigSwitch.) 
BigSwitch: SET[Switch40, SpecialBigSwitch]; 

DISPATCH[XA, 2. 3]; 

DISP[SwitchTab40]; 

SwitchTab40: GOTO[Case40], AT[Switch40. 0]; 

G0T0[Case41]. AT[Switch40, 1]; 

G0T0[Case42 ] , AT[Switch40, 2]; 

G0T0[Case43] . AT[Switch40, 3]; 

G0T0[Case44], AT[Switch40, 4]; 

G0T0[Case45], AT[Switch40, 5]; 

G0T0[Case^6], AT[Switch40. 6]; 

GOTO[Case47 ] . AT[Switch40, 7]; 

* RSEL * 3. SSTKP, STKP 
•Load SSTKP 

Case40: t «- LDF[XB, 0. 10]; 

Tmp *■ t; 

lu *■ (Tmp) and not (37c); 
goto[.+3,alu#0]; 

AbandonTestl: loadpage[mainPage]; 

gotop[mainLoop]; ‘don't load stkp with <40 

STKP - Tmp; 

1 oadpage[4]; 

callp[NewInstx], *NewInst is now done when control is at 2001bM*n, n = 0-377b 

•Load STKP 

t - LDF[XB , 10. 10]; 

InitialStkp *• t; 

InitialStkp «- (InitialStkp) xor ( 377c); 
lu *■ (InitialStkp) and not (37c); 
goto[IncMiscTest,ALUAO]; 
goto[AbandonTestl]; 

* RSEL * 7. (ALURESULT), SALUF 

Case41: FieldMask ■«- 377C ; 

t - TargetValue; 
t - (ZERO) OR NOT (t) ; 

SALUF - t; 

GOTO[IncMiscTest]; 

* RSEL * 13. MEMSYNDROME 

Case42: GOTO[mainLoop]; 

* RSEL * 17, MEMERROR 

Case43: GOTO[mainLoop]; 

* RSEL = 23. UNUSED 

Case44: GOTO[mainLoop]; 

* RSEL = 27 

Case45: LU *■ (RegShiftFlag); 

GOTO[GoBack, ALU # 0]; 

* CYCLECONTROL. PCXREG. PCFREG 
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FieldMask «■ AND@[0377, 177567]C; *Load16Bits (FieldMask 177567 ) 

FieldMask - (FieldMask) OR (AND@[177400, 177567]C): 

* Load PCXREG 

t - LDF[XB, 10, 4]; 

Tmp *- t; 

PCF «- Tmp; 
loadpage[4]; 

callp[NewInstx]; *NewInst is now done when control is at. 2001b+4*n, n=0-377b 

* NEWINST; 

* Load PCXREG 

t «-■ LDF[XB, 14, 4]; 

Tmp *■ t; 

PCF «• Tmp; 

* Load CycleControl (DBX and MWX) 

t «• LDFfXB, 0, 10]; 

InitialCycCtl *- t; 

GOTO[IncMiscTest]; 

* PRINTER 

GoBack: GOTO[mainLoop]; 

* RSEL * 33 

Case46: LU «- (RegSh if tFlag ); 

GOTO[SetDB&SB, ALU # 0]; 

* TIMER 

GOTO[mainLoop]; 

* DBREG. SBREG 

SetDB&SB: FieldMask - AND@[0377, 7777]C; *Loadl6Bits (FieldMask - 7777) 

FieldMask <- (FieldMask) OR (AND@[177400. 7777]C); 
t *■ LDF[TargetValue, 4, 6]; 

Tmp «• t; 

DB Tmp; 

t *• LOF[TargetValue. 12, 6]; 

Tmp «- t; 

SB *• Tmp ; 

BBFB; *to advance DB to DBX and SB to SBX 

GOTO[IncMiscTest]; 

* RSEL « 37 

Case47: LU *■ (RegShiftFlag); 

GOTO[SetMNBR. ALU # 0]; 

* RS232 

GOTO[mainLoop]; 

* MNBR 

SetMNEIR: MNBR «- TargetVal ue ; 

GOTO[lncMiscTest]; 

* Switch4 (Use DISPATCH[XA, 3, 2] to select cases. Locate switch table at SpecialSmallSwitch.) 

SmallSwitch: SET[Switch50, SpecialSmallSwitch]; 

DISPATCH[XA, 3. 2]; 

DISP[SwitchT ab50]; 

SwitchTab50: GOTO[Case50], AT[Switch50, 0]: 

GOTO[Case51] , AT[Switch50, 1]; 

GOTO[Case52], AT[Switch50, 2]; 

GOTO[Case53], AT[Switch50, 3]; 

* RSEL = 43, APCTASK, APC 

Case50: GOTO[mainLoop]; 

* RSEL * 47, CTASK, NCIA 

Case51: GOTO[mainLoop]; 

* RSEL = 53, CSDATA 

* CSDATA will be loaded just prior to switching to higher task 

Case52.: GOTO[IncMiscTest] ; 


Case53: 


RSEL = 57, PAGE, PARITY, BOOTREASON 
G0T0[mainLoop]; 
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IncMiscTest: 

MiscTest *• (MiscTest) + 1; 

LOADPAGE[SubPagel]; 

CALLP[SetUpRead]; 

LOADPAGE[SubPagel]; 

CALLP[ReadTest]; 

GOTO[mainLoop]; 


RunSubTest: 

LOADPAGE[SubPage3]; 

GOTOP[.+1]; 

ONPAGE[SubPage3]; 


•actual 

test 

LU - (XA) AND (000020C ) ; 

GOTO[Write, ALU # .0]; 


•Read Test 

LOADPAGE[SubPage1] ; 

CALLP[SetUpRead]; 

LOADPAGE[SubPage2]; 

CALLP[PrimeTarget]; 

LOADPAGE[SubPage1]; 

CALLP[ReadTest]; 

GOTO[CheckStkp]; 


•Write 

Test 


Write: 

LOADPAGE[SubPage2]; 

CALLP[WriteTest]; 


CheckStkp: 

LU *■ (StkpTest) ; 

GOTO[Repeat, ALU * 0]; 

LOADPAGE[SubPage3]; 

CALLP[StacKCompare]; 
nop; 


Repeat: 

LOADPAGE[MainPage]; 

GOTOP[mainLoop]; 
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•SUBROUTINE 

********** SUBROUTINE: FirstSixBits ***••****«■ 

* 

* deciphers the first six bits of the absolute R-register from Target Task 

ONPAGE[SubPage3]; 

F i rstSixBitS : LU «■ (XA) AND (060000C); 

GOTO[ShiftTarget. ALU it 0]; 

•TTTTRRxx 

t LSH[TargetTask, 4]; 
t - (LDF[XA, 3. 4]) OR t; 

GOTO[SetTarget]; 

•TTRRRRxx 

ShiftTarget: t *■ RSH[TargetTask, 2]; 

TargetRegister «- t; 
t + LSH[TargetRegister, 6]; 
t - (LDF[XA, 1, 6]) OR t; 

SetTarget: TargetRegister * t; 

RETURN; 


•****"■**•* SUBROUTINE: LastTwoBitS ***•••*•** 

* 

* inserts the last two bits of the absolute R-reg from t 

ONPAGE[SubPage3]; 

LastTwoBits: FargetRegister «- RSH[TargetRegister, 2]; 

TargetRegister (LSH[TargetRegister, 2]) OR t; 
RETURN: 


********** SUBROUTINE: Newlnstx ... 

* 

* Newlnst io now done when control is at 2001b+4*n, n=0-377b 

OnPage[SubPage2]; 

Newlnstx: Return, at[2001]; 
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********** SUBROUTINE: PrimeTarget 


* prime the target register with a value 

0NPAGE[SubPage2]; 


PrimeTarget: 

LU «- (TargetRegister) - (46C); 
GOTO[SkipRead, ALU < 0]; 
t - 360C; 

LU (TargetRegister) - (t); 

GOTO[SetStkp2, ALU < 0]; 

NOP; 

•done this way (with t) due to assembler bug 

SkipRead: 

LoadPage[mainPage]; 
gotop[mainLoop]; 

•don't do read test 

SetStkp2: 

stkp <- TargetRegister; 

LU *• (NewKand); 

GOTO[SetTarValue2, ALU = 0]; 


♦Random 

(4005*XB + CB mod 2**16) 
t «- XB; 

t - (LSH[XB. 2]) + t; 
t «- (LSH[XB, 13]) + t; 
t - (CB) + t; 

XB *■ t; 


SetTarValue2: 

t «- XB; 

TargetVaTue *• t; 

STACK «- t; 

RETURN; 
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********** SUBROUTINE: Readiest ********** 

* 

* executes the read test. 

ONPA6E[SubPagel]; 

•switch to higher task 
•set up CSOATA 

Readiest: LU «- TargetValue; 

APC&APCTASK «- InstructionAddress ; 

WRITECSl: 

t «- lC.atfsplb. 14]; 

APC&APCTASK «- Instruct ionAddress ; 

READCS; 

CYCLECONTROL *- InitialCycCtl,at[splb,16]; 

STKP «■ InitialStkp; 

APC&APCTASK - NewTask; 

RETURN: 

HighTask760: 

•IN HIGHER TASK 

t «- DummyRegister, REGSHIFT, AT[760]; 

•Save test results 

Result *- t; ‘Result will be different for each task 

t - (GETRSPEC[103]) OR (177400C); *get the STKP in a form ready to be inverted 

•Put test results in low register memory 

Tmp «- ADD[RegBase, SaveStkpOffset ]C : 

STKP «- Tmp; 

STACK <- (ZERO) OR NOT (t): ‘write SaveStkp( inverting STKP first) 

t «- Result; 

STACK&+1 «- t; ‘write Result 

•Load 16Bits (Tmp «- 7 70 ) 

Tmp «- AND@[0377. 770]C; 

Tmp 4 . (Tmp) OR (AND@[ 177400 , 770]C): 

•Tmp will be different for each task 
APC&APCTASK - Tmp; 

RETURN; 


***** SUBTEST 1 ***** 

SubTestl: SubTest - 1C, AT[770]; 

t FieldMask; 

TargetValue «- (TargetValue) AND (t); 
t «* Result *■ (Result) AND (t); 

LU «- (TargetValue) - (t): 

GOTO[ReadSuccess, ALU 8 0]; 

ShortLoop «* ShortLoop, G0T0[.+2, R EVEN]; ‘Test for shortLoop option 
GOTO[SubTestl]; ‘ShortLoop selected 

ReadFail: BREAKPOINT; 

ShortLoop ShortLoop, G0T0[.+2, R EVEN]; *Test for shortLoop option 

GOTO[SubTestl]; ‘ShortLoop selected 

NOP; ‘resolves a branching conflict 


ReadSuccess; 


RETURN; 
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••***«.*** SUBROUTINE: SetUpRead ***** 
* 

* create environment for read test 


ONPAGE[SubPagel]; 
NOP, AT[777]; 


SetUpRead: 

•modify the register reference instruction 

InstructionAddress <- AND@[0377, 760]C: *Loadl6Bits (InstructionAddress - 760) 

InstructionAddress *■ (InstructionAddress) OR (AND@[177400, 760]C); 


•readCS (read control store location 'InstructionAddress' 
•use CS2 for a temporary register until end 
t <- (InstructionAddress): 

CS2 «• t; 


t - OC; 

APCT ASK&APC 
READCS; 
t «■ CSData, 
CSO - t; 
t - 1C; 

APCT ASK&APC 
READCS; 
t *■ CSData, 
CS1 - t; 
t «- 3C; 
APCTASK&APC 
READCS; 
t «■ CSData. 


«■ (CS2); 
AT[splb,2] ; 

- (CS2) ; 
AT[splb,4]; 

- (CS2); 
AT[splb,6] ; 


CS2 - t; 

CS2 *- RSH[CS2, 14]; 


) 


•stuffRsel (set the RMOD and RSEL fields in CSO. CS1, CS2 to contents of XA) 

•CopyField (CS0[01. 5] - XA[0. 5], temp is stuffTmp) 
t «- LDF[XA, 0, 5]; 

StuffTmp «- 5C ; 

stuffTmp «- (stuffTmp) - 1; 

StuffTmp «- (stuffTmp) OR (LSHIFT[01, 4]C): 

CYCLECONTROL - StuffTmp; 

StuffTmp *■ t; 
t «- WFA[stuf fTmp] ; 

CSO - WFB[(CSO) OR t]; 

CSO - (CSO) XOR (030000C); ‘invert bits in microinstruction 


•CopyField (CS2[14, 2] - XA[5. 2], temp is stuffTmp) 
t - LDF[XA, 5, 2]; 

StuffTmp «- 2 C ; 

StuffTmp *■ (stuffTmp) - 1; 

StuffTmp - (stuffTmp) OR (LSHIFT[14. 4]C); 
CYCLECONTROL - StuffTmp; 

StuffTmp *■ t; 
t «- WFA[stuffTmp] ; 

CS2 *■ WF8[ (CS2 ) OR t] ; 

•stuffF2 (set the F2 field in CSO, CS1, CS2 to 12) 
StuffTmp «■ OR@[LSHI FT[ 2 , 4], SUB[4, 1 ]]C ; 
CYCLECONTROL «- StuffTmp; 

StuffTmp «- 12C; 
t WFA[StuffTmp] ; 

CS1 - WFB[(CS1) OR t]; 

LU (StackShiftFlag); 

GOTO[CheckFlag, ALU = 0]; 

•stuffF2 (set the F2 field in CSO, CS1, CS2 to 03) 
StuffTmp - OR@[LSHIFT[2, 4], SUB[4, 1]]C; 
CYCLECONTROL «- StuffTmp; 

StuffTmp - 03C; 
t «- WFA[StuffTmp] ; 

CS1 WFB[(CS1) OR t]; 


CheckFlag: 


LU *■ (RegShiftFlag); 
GOTO[WriteCS, ALU = 0]; 
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•stuf fF2 (set the F2 field in CSO, CS1. CS2 to 00) 

StuffTmp - 0R@[LSHIFT[2, 4], SUB[4, 1]]C; 

CYCLECONTROL * StuffTmp; 

StuffTmp «* 00C; 
t «- WFA[StuffTmp]; 

CS1 - WFB[(CS1) OR 1 3; 

•writeCS (write control store location 'InstructionAddress’) 

WriteCS : t «• (CSO); 

'Tmp «- t; * put CSO in the temp, reg. 

t «- (CS1); * get CS1 

Tmp «- t *- (Tmp) XOR (t); "‘exclusive or the first two CS words 

t ♦* (LDF[CS2,14,4]) XOR (t); *now exclusive or the third CS word with the result 
Tmp «- t «■ (LDF[Tmp,0,10]) XOR (t); “now start the halting process to get parity 

Tmp «- t *• (LDF[Tmp, 10,4]) XOR (t); 

Tmp *• t ♦* (LDF[Tmp ,14,2]) XOR (t); 

Tmp ♦- t *• (LDF[Tmp ,16,1]) XNOR (t); *do last part and complement it 

t *- (LDF[Tmp ,17,1]); *put parity bit in the t-register 

CS1 «- (CS1) XOR (t); ‘exclusive or the parity bit into bit 31 of CS (15 of CS1) 

t - (CS2); 

LU «- (CSO); 

APCTASK&APC *• (InstructionAddress ); 

WriteCS0&2; 

LU «■ (CS1), at[splb , 10] ; 

APCTASK&APC (InstructionAddress); 

WriteCSl; 

•set up higher task 

t «- LSH[TargetTask, 14], at[splb,12]; 

NewTask «■ t; 

Tmp - AND@[ 0377, 760]C; *Loadl6Bits (Tmp 760 ) 

Tmp (Tmp) OR (AND®[ 177400 , 760]C) ; 
t «- Tmp; 

NewTask ”(NewTask) OR (t); 

•set up for writing into control store the value that will be read into CSDATA 

InstructionAddress «- AND®[0377. 777]C; *Loadl6Bits (InstructionAddress *• 777 ) 
InstructionAddress - (InstructionAddress) OR (AND@[177400, 777]C); 

RETURN; 


*““*•*** SUBROUTINE: StackCompare ********** 

* 

• make sure the stack pointer is correct 

ONPAGE[SubPage3]; 

***** SU8TEST2 ***** 

StackCompare: SubTest *• 2C; 

t (SaveStkp) AND ( 0377C); 

LU *■ (ExpectedStkp) - (t); 
GOTO[StackSuccess, ALU s 0]; 

ShortLoop *■ ShortLoop, G0T0[.+2, R EVEN]; 
GOTO[StackCompare]; 

StackFail: BREAKPOINT; 

ShortLoop «- ShortLoop, G0T0[.+2, R EVEN]; 
GOTO[StackCompare]; 

NOP; 


•Test for ShortLoop option 
•ShortLoop selected 


•Test for ShortLoop option 
•ShortLoop selected 
•resolves a branching conflict 


StackSuccess: 


RETURN; 
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* 

* sets up and executes the write test 

0NPAGE[SubPage2]; 

WriteTest: 

•modify the register reference instruction 

InstructionAddress - AND@[0377, 762]C; *Loadl6Bits (InstructionAddress «- 762) 
InstructionAddress *■ (InstructionAddress) OR (AND@[177400, 762]C); 

•readCS (read control store location 'InstructionAddress') 

•use CS2 for a temporary register until end 
t (InstructionAddress): 

CS2 «- t; 
t «■ OC; 

APCTASK&APC «■ (CS2 ) ; 

READCS; 

t «■ CSData, at[sp2b ,20] ; 

CSO - t; 
t - 1C; 

APCT ASK&APC <- (CS2 ); 

READCS; 

t «- CSData, at[sp2b ,22] ; 

CS1 - t; 
t - 3C; 

APCT ASK&APC - (CS2); 

READCS; 

t «- CSData, at[sp2b ,24] ; 

CS2 - t; 

CS2 - RSH[CS2, 14]; 

•stuffRsel (set the RMOD and RSEL fields in CSO, CS1, CS2 to contents of XA) 

•CopyField (CS0[01, 5] «- XA[0. 5], temp is stuffTmp) 
t «• LDF[XA, 0, 5]; 
stuffTmp *- 5C; 

StuffTmp «- (stuffTmp) - 1; 

StuffTmp «- (stuffTmp) OR (LSHIFT[01, 4]C); 

CYCLECONTROL - stuffTmp; 

StuffTmp «- t; 
t «- WFA[stuf fTmp]; 

CSO «- WFB[ ( CSO) OR t] ; 

CSO «- (CSO) XOR (030000C) ; ’invert bits in microinstruction 

•CopyField (CS2[14, 2] «- XA[5, 2], temp is stuffTmp) 
t - LDF[XA. 5, 2]; 
stuffTmp «- 2C; 
stuffTmp «- (stuffTmp) - 1; 

StuffTmp «- (stuffTmp) OR (LSHIFT[14. 4]C); 

CYCLECONTROL - stuffTmp; 

StuffTmp +■ t; 
t «- WFA[stuffTmp] ; 

CS2 - WFB[(CS2) OR t]; 

•stuffF2 (set the F2 field in CSO, CS1, CS2 to 12) 

StuffTmp *■ OR@[ LSHI FT[ 2 , 4], SUB[4, 1]]C; 

CYCLECONTROL «• StuffTmp; 

StuffTmp «- 12C; 
t *■ WFA[StuffTmp] ; 

CS1 - WFB[(CS1) OR t]; 

LU *■ (StackShiftFlag); 

GOTO[CheckFlag2, ALU = 0]; 

•stuffF2 (set the F2 field in CSO. CS1, CS2 to 03) 

StuffTmp «• OR9[LSHIFT[2, 4], SUB[4, 1 ]]C; 

CYCLECONTROL «- StuffTmp; 

StuffTmp 03C; 
t *■ WFA[Stuf fTmp] ; 

CS1 - WFB[(CS1) OR t]; 

CheckFlag2: LU - (RegShiftFIag); 

GOTO[WriteCS2, ALU = 0]; 

•stuffF2 (set the F2 field in CSO. CS1, CS2 to 00) 
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StuffTmp «- OR@[LSHIFT[2, 4], SUB[4, 1]]C; 

CYCLECONTROL “ StuffTmp; 

StuffTmp *■ 00C; 
t «- WFA[Stuf fTmp] ; 

CS1 «- WFB[ (CS1) OR t ] ; 

WriteCS2: 

•writeCS (write control store location ’InstructionAddress*) 
t - (CSO); 

Tmp «• t; ‘put CSO in the temp, reg. 

t «■ (CS1); *get CS1 

Tmp *■ t - (Tmp) XOR (t): ‘exclusive or the first two CS words 

t «■ (LDF[CS2,14,4]) XOR (t); ‘now exclusive or the third CS word with the result 
Tmp *- t (LDF[Tmp ,0,10]) XOR (t); *now start the halting process to get parity 

Tmp «- t «■ (LDF[Tmp ,10,4]) XOR (t); 

Tmp «• t (LDF[Tmp ,14,2]) XOR (t); 

Tmp - t «- (LDF[Tmp ,16,1]) XNOR (t); ‘do last part and complement it 

t «■ (LDF[Tmp ,17,1]); ‘put parity bit in the t-register 

CS1 «■ (CS1) XOR (t); ‘exclusive or the parity bit into bit 31 of CS (15 of CS1) 

t - (CS2); 

LU «- (CSO); 

APCTASK&APC «* (InstructionAddress); 

WriteCS0&2; 

LU «• (CS1) ,at[sp2b,26]; 

APCTASK&APC «- (InstructionAddress); 

WriteCSl; 

♦set up higher task 

t *■ LSH[TargetTask , 14] , at[sp2b ,30]; 

NewTask t; 

Tmp «■ AND@[0377, 761]C; *Loadl6Bits (Tmp - 761) 

Tmp - (Tmp) OR (AND@[17740C. 761]C); 
t *■ Tmp; 

NewTask <-(NewTask) OR (t): 

•check range of target register and establish target value • 

LU *- (TargetRegister) - (46C); 

GOTO[BackToMain, ALU < 01; 

t +■ 360C; ‘done this way (with t) due to assembler bug 

LU «- (TargetRegister) * (t); 

GOTO[ChangeXB, ALU < 0]; 

NOP; 

BackToMain: LOADPAGE[MainPage]; 

GOTOP[mainLoop]; 

ChangeXB: LU ♦- (NewRand); 

GOTO[SetTargetVal, ALU = 0]; 

•Random (4005*XB + CB mod 2**16) 
t «- XB; 

t - (LSH[XB, 2]) + t; 
t <- (LSH[XB , 13]) + t; 
t - (CB) + t; 

XB «- t; 

SetTargetVal : t XB ; 

TargetValue t; 

•switch to higher task 

APC&APCTASK «- NewTask; 

RETURN; 

•IN HIGHER TASK 

HighTask761: Tmp - ADD[RegBase, TargetValueOffset]C, AT[761]; 

STKP Tmp; 

t *- STACK&-1; ‘access TargetValue 

STKP «- STACK; ‘access InitialStkp 

DummyRegister t, REGSHIFT, AT[762]; 

•save STKP 

t «- ADD[RegBase, SaveStkpOf fset]C ; 

t *- (ZERO) OR NOT (t); ‘invert value stored into SALUF 

SALUF - t; 
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t «• (GETRSPEC[ 1033) OR (177A00C) 
STKP - GETRSPEC[107]; 

STACK «- (ZERO) OR NOT (t): 

LU -STACK&+2; 

APC&APCTASK - STACK: 

RETURN: 


***** SUBTEST3 . 

SubTest3: SubTest - 3C. AT[772]; 

STKP *■ TargetRegister; 
t «- STACK; 

LU «■ (TargetValue) - (t); 
GOTO[WriteSuccess, ALU = 0]; 

ShortLoop «- ShortLoop, G0T0[.+2, 
GOTO[SubTest3]; 

WriteFail: BREAKPOINT; 

ShortLoop «- ShortLoop, GOTO[.+2, 
GOTO[SubTest3]; 

NOP; 

WriteSuccess: RETURN: 


END; 


; *get the STKP in a form ready to be inverted 
•use SALUF as general purpose register 
•write SaveStkp (invert STKP) 

•increment STKP 

•get return register off of stack 


R EVEN]; *Test for ShortLoop option 
•ShortLoop selected 


R EVEN]; *Test for ShortLoop option 
•ShortLoop selected 
•resolves a branching conflict 


• to end the main routine 
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;ase11: 


deciphers the 1st six bits of Call FirStSixBitS 
the absolute R- register page 05 


Casel2: 


deciphers the 1st six bits of Call FirStSixBitS 
the absolute R-register page 05 


insert the last two bits of the Call LaStTwoBitS 
absolute R-reg from XA[12.2] page 05 


insert the last two bits of the Call LaStTwoBitS 
absolute R-reg from XA[12.2] page 05 


load SB SB = XA[12.6] 


load OB DB = XA[12.6] 


advance SB to SBX 


advance DB to DBX 


increment the # of times the 
SB register test has executed 


SBTest s SBTest * 1 


increment the # of times the 
DB register test has executed 


DBTest * DBTest «■ 1 


RunSubTest 
page 04 


Casel3: 

XA[1.2] = 3? 


_ SpecialReg 

page03 


RunSubTest 
page 04 


StkSwitc hA: 
SwitchT,ib20: 

w 

l RSEL(2:3) = ? ' 


-■*—- TargetRegister a XAflO.IO] 

load reaisters StackShiftFlag » XA[7.l] 

load registers ExpectedStkp = XA[10.10] 

InitialStkp s XA[10,10] 


InitlalStkp and not (37c) \ yes 

= 0 ? r~ 


StackShiftFlag a 0? 


Case20: 

DeltaStack a 0 

Case21: 

DeltaStack a 1 

Case22: 

DeltaStack = -1 

Case23: 

DeltaStack a -2 


DltStack: 


SubtractStk: 


AbandonTest: 


StkSwitchB: L 

Switch Tab30: 

->/rSEL(2:3) = ? 


XA[1 1] = 0? 


malnLOOp \ don’t load Stkp 
page 01 /with<40c 

Case30: 

\ o - 

} -> DeltaStack = 2 - > 

Case31: 

1 - 

■ > DeltaStack = 3 -^ 

C ase32: 

_2_ mainLoop \ 

page 01 ) 

Case33: 

3 - 

-^ DeltaStack = -3 -> 


add DeltaStack to lower 4 bits 
of ExpectedStkp with no 
carry into upper bits 


subtract Delta Stack to lower 4 bits of 
InitialStkp with no carry into upper bits 

SetStkp^_\_ 

I set STKP that is to be checked after the test to 1 


increment the # of times the 
stack register test has executed 

StkTest = StkTest + 1 


RunSubTest 
page 04 
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Specia lReg: _ 

load RegShiftFlag RegShiftFlag = XA[10] 


New random number \ yes 
selected? / 


Generate new pseudorandom number XB 


NewRand = 1? 


SetTar Value: \|/ 

TargetValue ® XB 


SmallSwitch: 

SwitchTab50: 


XA[1] = 0? 


RSEL[2:3] 


Case50: 


mainLoop 
page 01 


APCTASK. APC 


BigSwitch: 

SwitehTab40; 


RSEL[2:4] = ? 


Case40 

page04 


SSTKP. STKP 


Case41 


FieldMask r 377C 


SALUF = (ZERO) or not TargetValue 


Case5l 


mainLoop 
page 01 


Case52: 


CTASK. NCIA 


Case53: 


mainLoop 
page 01 


lncMiscTest:\ csdata win be loaded 

m ) just prior to switching 

page 03 / tohighertask 


page, parity, bootreason 


Case42: 


mainLoop 
page 01 


MEMSYNDROME 


Case43: 


mainLoop 
page 01 


MEMERROR 


Case44: 


mainLoop 
page 01 


Case45 
page 04 


UNUSED 


IncMiscTest: 


Increment the tt of times the 
Misc registers test has executed 


MiscTest =MiscTest + 1 


Case46 
page 04 

Case47: 

J ^ v 

->< RegShiftFlag = 0? 


SetMNBR: 


MNBR = TargetValue 


create environment CALL SetUpRead 
for read test page 06 


executes the read tests CALL ReadTest 
- —t- - page 06 


mainLoop 
page 01 
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Case40: 

TMP = XB[0.10] 

_ £ _ 

/ \ yeS 

uTMPl and not (37c) = 0? ) - 

i no ~ 

load STKP STKP = TMP 

__ 

\ewlnst is now done when control CALL Newlnstx 
> at 2001b ♦ 4*n. n s 0-377c page 05 

__ 

load InitialStkp InitialStKp z XB[10.10] xor (377c) 

_v_ AbandonT estl: 

/ \ yes ma 


Case46: 



(InitialStkp) and not (37c) s 0? 


mainLoop 
page 01 


don’t load Stkp 
with < 40c 


IncMiscTest 

page03 


RunSubTest: 


Write: 


Case45: 


GoBack: 
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Subroutine: 


Subroutine: 


ReadTest Executes the read test 


SetUpRead 


put TargetValue into ALU 


modify the register reference instruction InstructionAddress = 760 c 


Write the item from A bus into 


read control store location InstructionAddress' 




set T = 1C at location spl b + 14c 


get wordl from control store into CSData 


set CYCLECONTROL = initialCycCtl 
at location splb + 16 


Stkp : InitialStkp 


HighTask760: 


NOTIFY 

RETURN 

_ k _ 

REGSHIFT 


Notify to HighTask760 


set the RMOD and RSEL fields CSO. 
CS1. CS2 to contents of XA 


set the F2 field in CSO. CS1. CS2 to 12c 


rzz 

\ yes 

V 


\ 

^no 

set the F2 field in CSO, CSl. CS2 to 03c 


- M 

CheckFlag: \ 

f 


save test results 


RegShiftFlag = 0? J— - 

__ 

set the F2 field in CSO. CS1. CS2 to 00c 

WriteCS: y _ 

write control store location ’InstructionAddress' 


put test results in low register memory 

■i/ 

set up task switching location load 16Bits (tmp = 770) 


NOTIFY 

RETURN 


Notify toSubTestl 


SubTestt 


the contents(Result) of the register read \ yes 
(TargetRegister) match those expected )—-— 
k (TargetValue)? / 


ShortLoop 

selected? 


ReadF ail: __ no 

[“breakpoint] 


ShortLoop 

selected? 


ReadSucc ess: \< no 
I RETURN 


set up higher task (NewTask) 


set up for writing into control store the load 16Bits (InstructionAddress 
value that will be read into CSDATA = 777) 


| RETURN 

Subroutine: 
Stack Compare^ 




SubTest2 

\ 

f 

the expected stack pointer(ExpectedStkp) \ no / c hort i onr , \ yes 

matches the value of the STKP found immediately ) —■ - >( . . , 7 P ) > 

^ after the read or write instruction (SaveStkp)? j \ j 


StackFail: j no 

yes 1 1 111 —mmJmm —■ 1 

| BREAKPOINT! 


StackSuccess: 


RETURN 


ShortLoop 

selected? 



D(0) 

PROGRAM NAME 

DOCUMENTATION FILE 

DESIGNER 

REV 

DATE 

PAGE 

Diagnostic 

EDTask 

EDTask-06.sil 

Camellia Chan 

1 

03/20/80 

06 















Subroutine: 

---N 

WriteTest 


___x_ 

modify the register reference instruction InstructionAddress = 762c 


read control store location ’InstructionAddress’ 


set the RMOD and RSEL fields CSO. 
CS1. CS2 to contents of XA 


set the F2 field in CSO. CS1, CS2 to 12c 


StackShiftFlag = 0 ?J - 

__ 

set the F2 field In CSO, CS 1, CS2 to 03c 

CheckFlag2: 


RegShiftFlag = 0? J - 

_ j no _ 

set the F2 field In CSO. CS1, CS2 to 00c 

’ A ' nteCS2: j _ 

vrite control store location ’InstructionAddress’ 

_i_ 

set up higher task (NewTask) 


TargetRegister < 46C? 


TargetRegister < 360C? 

\ __ 

yes 


Ba ckToMain: 

mainLoop 
page 01 


ChangeXB: 


New random number \ no 
selected? /" 


NewRand - 1? 


Generate new pseudorandom number XB 


SetTargetVai: 

-> TargetValue = STACK = XB 

4 / 

NOTIFY Notify to HighTask76" 

return" 

HighTask761: v 

access TargetValue and initialStkp 

~~ j ~ ~ 

save STKP 

4/ _ 

invert value stored into SALUF 

4' 

get the STKP in a form ready to be inverted 

4f 

use SALUF as general purpose register 

_4/_ 

write save STKPfinvert STKP) 

4^ 

increment STKP 


NOTIFY 

RETURN 


Notify to SubTest3 


SubTest3 


'the contents(t) of the register written 
(TargetRegister) match those expected 
v (TargetValue)? 


ShortLoop 

selected? 


WriteFail: 4 7 

C breakpoint! 

* mmmm 


WriteSuccess: 


ShortLoop 

selected? 


RETURN 


XEROX 

Pf! 


PROGRAM NAME 

DOCUMENTATION FILE 

DESIGNER 

REV 

DATE 

PAGE 

EDTask 

EDTask-07.sil 

1 Camellia Chan 

i 

1 

! 

03/20/80 

07 



















PARITY 

0 

REVISION 

1 

COMM-ER0 

CYCLECOWTROL 

16 

RUN-TIME 

5 

C0MM-ER1 

PCXREG 

5 

PAS3C0UNT 

0 

C0MM-ER2 

PCFREG 

5 

MAXPASS 

2 

BOOT-ERR 

DBREG 

15 

SUBTEST 

0 * 

B00TREAS0N 

3BREG 

17 



MEMSYNDROME 

MNBR 4 

7550 

DBTE3T 

0 


*SSTKP 

377 

MISCTEST 

0 


STKP 

0 

PCFTE8T 

0 


*ALURESULT 

3 

RRTEST 

0 


SALUF 

0 

SBTE3T 

0 


T 20 

7000 

STKTEST 

0 


AATOVA 

0 




TPC 20 

7777 

FIELDMASK 

0 


CALLER ILCS+6714 

INITIALSTKP 

40 


*PAGE 

2 




*APC 

7011 

EXPECTEDSTKP 

0 

SHORTLOOP 

A P U T ASK 

16 

RESULT 

44 

NEWRAND 

*C IA 

60 + 1 

TARGETVALUE 

41 


CTASK 

0 




Loaded: EDTASh 




T inn 

3 t e p a t 0: 6 0, 

BP at 

0:GO+1 



Exit Boot Run- 

Prog 

Read-Crnds Break 

UnBreat 

ClrAddedBP 

ss @3553533 l 

oad LdSyms Compare Te 

st-Al 1 

Test Dump 3 


40 

170167 


Virtual 


CD © CD © 
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MicroD 8.6 (OS 16) of April 27. 1979 
al 6-Mar-80 15:42:33 

m icrod.run edtask 


edtask.DIB 1063b instructions written 6-Mar-SC 15:41:03 


Total of 1063b instructions 

Checking for errors... 

Linking. . . 

Building allocation lists... 

Assigning locations... 

1063b instructions in rings involving ONPAGE or AT 
Reloading b inaries... 

Checking assignment... 

Writing .MB file. .. 

Writing 1isting... 


IM: 


Imag 

Real 

WO 

W1 

W2 

Symbol 

edtask. 

DIB: 





0 

1060 

16005 

107174 

2 

GO START 

1 

1276 

16320 

101173 

2 

( + D 

2 

1275 

14001 

123170 

12 

(+2) 

3 

1274 

14323 

115167 

12 

(+3) 

4 

1273 

16002 

135164 

6 

(+4) 

5 

1272 

16320 

103162 

6 

(+5) 

6 

1271 

14001 

133161 

16 

(+6) 

7 

1270 

14323 

115156 

16 

(+7) 

10 

1267 

47 

7155 

2 

( + 10) 

11 

1266 

30020 

101153 

16 

( + 11) 

12 

1265 

36020 

101150 

2 

( + 12) 

13 

1264 

34020 

101146 

16 

( + 13) 

14 

1263 

36020 

101145 

6 

( + 14) 

15 

1262 

34020 

101142 

6 

( + 15) 

16 

1261 

36020 

101140 

12 

( + 16) 

17 

1260 

34020 

101136 

12 

( + 17) 

20 

1257 

12017 

125135 

6 

(+20) 

21 

1256 

12320 

103006 

4 

(+21) 

22 

1003 

47 

5132 

2 

BIGLOOP 

23 

1255 

31050 

165131 

16 

( + D 

24 

1254 

33450 

25126 

2 

( + 2) 

25 

1253 

50 

24200 

0 

(+3) 

26 b 

1001 

50 

25140 

0 

PASSED-EDTASK-TEST 

27 

1000 

32020 

101113 

15 

MAINLOOP 

30 

1145 

24020 

101110 

5 

( + 1) 

31 

1144 

24020 

101077 

11 

(+2) 

32 

1137 

24020 

101075 

15 

(+3) 

33 

1136 

10001 

101072 

1 

(+4) 

34 

1135 

23376 

101070 

5 

(+5) 

35 

1134 

32150 

25066 

5 

(+6) 

36 

1133 

50 

24135 

0 

(+7) 

37 

1057 

31050 

125153 

10 

( + 10) 

40 

1065 

50 

24007 

0 

( + 11) 

41 

1002 

16150 

65150 

0 

( + 12) 

42 

1064 

17174 

45147 

0 

( + 13) 

43 

1063 

17174 

67144 

0 

( + 14) 

44 

1062 

15150 

65143 

10 

( + 15) 

45 

1061 

16050 

125134 

0 

( + 16) 

46 

1056 

16163 

51064 

1 

SETTTASK 

47 

1132 

26050 

125063 

11 

( + D 

50 

1131 

27400 

35060 

11 

(+2) 

51 

1130 

50 

24331 

0 

(+3) 

52 

1054 

50 

25000 

0 

(+4) 

53 

1055 

16230 

1037 

1 

CHOOSETEST 

54 

1117 

50 

24075 

0 

( + 1) 

55 

1036 

45 

7124 

0 

(+2) 

56 

1052 

50 

25265 

1 

(+3) 

57 

1053 

37050 

125026 

1 

(-4) 

60 

1113 

50 

25025 

1 

(+5) 

61 

103 7 

1617 1 

31034 

1 

OUTSW1TCH 




Page 


edt ask 

d 1 S 



21 

-Mar-80 15:21 

62 

1116 

50 

25700 

2 

(*1) 

63 

@1240 

50 

25032 

1 

SWITCHT AB10 

64 

@1241 

50 

25001 

1 

( + 1) 

65 

@1242 

50 

25016 

1 

( + 2) 

66 

@1243 

50 

25174 

1 

(+3) 

67 

1115 

45 

7070 

0 

CASE 10 

70 

1034 

50 

25265 

1 

( + 1) 

71 

1035 

16161 

67030 

1 

(+2) 

72 

1114 

45 

7121 

0 

(+3) 

73 

1050 

50 

25307 

1 

(*4) 

74 

1051 

16162 

65162 

0 

(-5 ) 

75 

1071 

10050 

125160 

10 

(+6) 

76 

1070 

10150 

31156 

10 

( + 7) 

77 

1067 

35050 

125155 

14 

(-10) 

ICO 

1066 

50 

25025 

1 

( + H) 

101 

1100 

45 

7114 

0 

CASE 11 

102 

1046 

50 

25265 

1 

( + 1 ) 

103 

1047 

16161 

65176 

0 

( + 2) 

104 

1077 

45 

7111 

0 

(+3) 

105 

1044 

50 

25307 

1 

(+4) 

106 

1045 

16165 

41174 

0 

( + 5) 

107 

1076 

10050 

125172 

10 

( + 6) 

110 

1075 

10150 

13171 

10 

( + 7 ) 

111 

1074 

52 

25 166 

0 

(-10) 

112 

1073 

37050 

125165 

4 

( + 11) 

113 

1072 

50 

25025 

1 

( + 12) 

114 

1107 

45 

7105 

0 

CASE12 

115 

1042 

50 

25265 

1 

( + 1) 

116 

1043 

16161 

65015 

1 

( + 2) 

117 

1106 

45 

7100 

0 

(+3) 

120 

1040 

50 

25307 

1 

(+4) 

121 

1041 

16165 

41012 

1 

(-5) 

122 

1105 

10050 

125011 

11 

(+6) 

123 

1104 

10150 

15006 

11 

( + 7 ) 

124 

1103 

52 

25005 

1 

( + 10) 

125 

1102 

35050 

125002 

5 

( + 11) 

126 

1101 

50 

25025 

1 

( + 12) 

127 

1176 

0 

47173 

1 

CASE 13 

130 

1175 

17461 

3170 

1 

( + D 

131 

1174 

50 

24061 

0 

(+2) 

132 

1030 

45 

7176 

1 

(+3) 

133 

1177 

50 

25071 

0 

( + 4) 

134 

1434 

16166 

47047 

1 

(+5) 

135 

1523 

26050 

125044 

5 

(+6) 

136 

1522 

16160 

57043 

1 

( + 7 ) 

137 

1521 

24050 

125040 

11 

( + 10) 

140 

1520 

16166 

47036 

1 

( + 11) 

141 

1517 

22050 

125035 

1 

( + 12 ) 

142 

1516 

22150 

65032 

1 

( + 13) 

143 

1515 

10050 

125031 

1 

( + 14) 

144 

1514 

10501 

37026 

1 

( + 15) 

145 

1513 

50 

24064 

0 

( + 16) 

146 

1432 

45 

5072 

0 

ABANDONTEST 

147 

1435 

50 

25000 

0 

( + 1) 

150 

1433 

24150 

25025 

11 

(+2) 

151 

1512 

50 

24061 

0 

(+3) 

152 

1430 

16171 

25023 

1 

STKSWITCHA 

153 

1511 

50 

25740 

0 

( + D 

154 

@1460 

50 

25020 

1 

SWITCHTAB20 

155 

@1461 

50 

25077 

0 

( + 1) 

156 

@1462 

50 

25102 

0 

( + 2) 

157 

@1463 

50 

25110 

0 

( + 3 ) 

160 

1510 

20020 

101016 

11 

CASE20 

161 

1507 

50 

25015 

1 

( + 1) 

162 

1437 

20000 

103074 

10 

CASE21 

163 

1436 

50 

25015 

1 

( + 1) 

164 

1441 

21376 

101100 

10 

CASE22 

165 

1440 

50 

25015 

1 

( + 1) 

166 

1444 

0 

45107 

0 

CASE23 

167 

1443 

21476 

101104 

10 

( + 1) 

170 

1442 

50 

25015 

1 

(+2) 

171 

1431 

16171 

25116 

0 

STKSW ITCHB 

172 

1447 

50 

25601 

1 

( + n 

173 

@1500 

50 

25115 

0 

SWITCHTAB30 

1 74 

@1501 

50 

25123 

0 

( + n 

175 

@1502 

5C 

25052 

1 

(+2) 
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eel task 

.(11s 



21 

-Mar-30 15:21 

176 

@1503 

50 

25126 

0 

(+3) 

177 

1446 

20000 

105113 

10 

CASE30 

200 

1445 

50 

25015 

1 

( + 1) 

201 

1451 

20000 

107121 

1C 

CASE31 

202 

1450 

50 

25015 

1 

( + U 

203 

1525 

45 

5051 

l 

CASE32 

204 

1524 

50 

25000 

0 

( + 1) 

205 

1453 

0 

47124 

0 

CASE33 

206 

1452 

21476 

101015 

11 

( + D 

207 

1506 

16201 

1012 

•1 

DLTSTACK 

210 

1505 

50 

24054 

0 

( + D 

211 

1426 

22200 

77010 

1 

(+2) 

212 

1504 

22500 

137177 

0 

(+3) 

213 

1477 

21150 

65174 

10 

<+4) 

214 

1476 

10050 

125172 

10 

( + 5) 

215 

1475 

10200 

77170 

10 

(+6) 

216 

1474 

22350 

125166 

0 

( + 7) 

217 

1473 

50 

25164 

0 

( + 10) 

220 

1427 

10200 

77155 

0 

SUBTRACTSTK 

221 

1466 

10500 

137152 

0 

< + l) 

222 

1465 

10050 

125150 

10 

( + 2) 

223 

1464 

11101 

101137 

10 

( + 3) 

224 

1457 

20150 

65134 

10 

( + 4) 

225 

1456 

11450 

125133 

10 

( + 5) 

226 

1455 

10200 

77131 

10 

(+6) 

227 

1454 

10350 

125164 

0 

( + 7) 

230 

1472 

24000 

103162 

14 

SETSTKP 

231 

1471 

37050 

125160 

10 

( + 1) 

232 

1470 

45 

5157 

0 

( + 2) 

233 

1467 

50 

25020 

1 

(+3) 

234 

1110 

50 

25025 

1 

(+4) 

235 

1031 

16160 

61166 

1 

SPECIALREG 

236 

1173 

24050 

125165 

5 

( + 1) 

237 

1172 

32150 

25162 

5 

(+2) 

240 

1171 

50 

24054 

0 

(+3) 

241 

1027 

16150 

65007 

6 

( + 4) 

242 

1203 

17174 

45004 

6 

(+5) 

243 

1202 

17174 

67002 

6 

(+6) 

244 

1201 

15150 

65000 

16 

( + 7) 

245 

1200 

16050 

125054 

4 

( + 10) 

246 

1026 

16150 

65160 

5 

SETTARVALUE 

247 

1170 

10050 

1?5157 

5 

( + D 

250 

1167 

16224 

1155 

1 

(+2) 

251 

1166 

50 

24015 

0 

(+3) 

252 

1006 

16172 

21120 

2 

BIGSWITCH 

253 

1250 

50 

25640 

1 

( + D 

254 

@1120 

50 

25117 

2 

SWITCHTA840 

255 

@1121 

50 

25023 

2 

( + 1) 

256 

@1122 

50 

25114 

1 

( + 2) 

257 

@1123 

50 

25117 

1 

(+3) 

260 

@1124 

50 

25121 

1 

( + 4) 

261 

@1125 

50 

25124 

1 

(+5) 

262 

@1126 

50 

25142 

1 

(+6) 

263 

@1127 

50 

25147 

1 

( + 7) 

264 

1247 

16165 

67115 

6 

CASE40 

265 

1246 

10050 

125113 

12 

( + 1) 

266 

1245 

10501 

37110 

12 

(+2) 

267 

1244 

50 

24020 

0 

(+3) 

270 

10 1C 

45 

5010 

2 

A8AND0NTEST1 

271 

1204 

50 

25000 

0 

( + 1) 

272 

1011 

10150 

3076 

12 

(+2) 

273 

1237 

45 

11024 

0 

( + 3) . 

274 

1012 

50 

25202 

0 

(+4) 

275 

1013 

16166 

47075 

6 

(+5) 

276 

1236 

10050 

125073 

2 

(+6) 

277 

1235 

10417 

137071 

2 

( + 7 ) 

300 

1234 

10501 

37067 

2 

( + 10) 

301 

1233 

50 

24051 

0 

( + 11) 

302 

1024 

50 

25021 

0 

( + 12) 

303 

1211 

22017 

137020 

6 

CASE41 

304 

1210 

10150 

65016 

6 

( + 1) 

305 

1207 

676 

41015 

2 

( + 2) 

306 

1206 

50 

23013 

2 

(+3) 

307 

1205 

50 

25053 

0 

(+4) 

310 

1 1 46 

50 

25000 

0 

CASE 42 

3 11 

1 147 

50 

25000 

0 

CASE43 
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312 

1150 

50 

25000 

0 

CASE44 

313 

1152 

24150 

25122 

5 

CASE45 

314 

1151 

50 

24064 

0 

( + 1) 

315 

1032 

22007 

117136 

5 

(-2) 

316 

1157 

22337 

137134 

5 

( + 3) 

317 

1156 

16163 

53133 

5 

( + 4) 

320 

1155 

10050 

125131 

11 

(+5) 

221 

1154 

10150 

31126 

11 

(-6) 

322 

1153 

45 

11044 

0 

( + 7) 

323 

1022 

50 

25202 

0 

( + 10) 

324 

1023 

16163 

63034 

6 

( + 11) 

325 

1216 

10050 

125033 

12 

( + 12) 

326 

1215 

10150 

31030 

12 

( + 13) 

327 

1214 

16165 

67027 

6 

( + 14) 

330 

1213 

22050 

125025 

12 

( + 15) 

331 

1212 

50 

25053 

0 

( + 16) 

332 

1033 

50 

25000 

0 

GOBACK 

333 

1161 

24150 

25141 

5 

CASE46 

334 

1160 

50 

24040 

0 

( + 1) 

335 

1020 

50 

25000 

0 

(+2) 

336 

1021 

22017 

137057 

6 

SETDB&SB 

337 

1227 

22320 

137055 

6 

( + 1) 

340 

1226 

10164 

65053 

6 

( + 2) 

341 

1225 

10050 

125050 

12 

(+3) 

342 

1224 

10150 

15047 

12 

(+4) 

343 

1223 

10165 

41045 

6 

(+5) 

344 

1222 

10050 

125042 

12 

(+6) 

345 

1221 

10150 

13041 

12 

( + 7) 

346 

1220 

52 

25036 

2 

O 

rH 

+ 

347 

1217 

50 

25053 

0 

( + 11) 

350 

1163 

24150 

25144 

5 

CASE47 

351 

1162 

50 

24034 

0 

( + 1) 

352 

1016 

50 

25000 

0 

(+2) 

353 

1017 

10150 

27061 

6 

SETMNBR 

354 

1230 

50 

25053 

0 

( + 1) 

355 

1007 

16171 

25153 

1 

SMALLSWITCH 

356 

1165 

50 

25700 

1 

( + 1) 

357 

@1140 

50 

25150 

1 

SWITCHTAB50 

360 

@1141 

50 

25122 

2 

( + 1) 

361 

@1142 

50 

25062 

2 

( + 2) 

362 

@1143 

50 

25124 

2 

(+3) 

363 

1164 

50 

25000 

0 

CASE50 

364 

1251 

50 

25000 

0 

CASE51 

365 

1231 

50 

25053 

0 

CASE52 

366 

1252 

50 

25000 

0 

CASE53 

367 

1025 

35050 

125064 

12 

INCMISCTEST 

370 

1232 

45 

3030 

0 

( + 1) 

371 

1014 

50 

25362 

1 

(+2) 

372 

1015 

45 

3011 

0 

( + 3) 

373 

1004 

50 

25207 

0 

(+4) 

374 

1005 

50 

25000 

0 

(+5) 

375 

1112 

45 

7022 

1 

RUNSUBTEST 

376 

1111 

50 

25054 

1 

( + 1) 

377 

1526 

16201 

1063 

1 

(+2) 

400 

1531 

50 

24020 

0 

(+3) 

401 

1410 

45 

3050 

0 

(+4) 

402 

1424 

50 

25362 

1 

. (+5) 

403 

1425 

45 

11044 

0 

(+6) 

404 

1422 

50 

25201 

0 

( + 7) 

405 

1423 

45 

3041 

0 

( + 10) 

406 

1420 

50 

25207 

0 

( + 11) 

407 

1421 

50 

25027 

0 

( + 12) 

410 

1411 

45 

11024 

0 

WRITE 

411 

1412 

50 

25311 

0 

( + 1) 

412 

1413 

24150 

25060 

15 

CHECKSTKP 

413 

1530 

50 

24034 

0 

( + 1) 

414 

1417 

45 

7031 

0 

(+2) 

415 

1414 

50 

25315 

1 

(+3) 

416 

1415 

50 

25035 

0 

(+4) 

417 

1416 

45 

5057 

1 

REPEAT 

420 

1527 

50 

25000 

0 

( + D 

421 

1532 

16226 

1104 

1 

FIRSTSIXBITS 

422 

1542 

50 

24015 

0 

( + D 

423 

1406 

26174 

51102 

11 

(+2) 

424 

1541 

16363 

41100 

1 

(+3) 

425 

1540 

50 

25076 

1 

(+j) 
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426 

1407 

26170 

45073 

11 

SHIFTTARGET 

427 

1535 

26050 

125071 

5 

(-D 

430 

1534 

26174 

55067 

5 

( + 2) 

431 

1533 

16364 

57076 

1 

(+3) 

432 

1537 

26050 

125074 

5 

SETTARGET 

433 

1536 

50 

25401 

0 

( + n 

434 

1543 

26170 

105112 

5 

LASTTWOBITS 

435 

1545 

26374 

105111 

5 

( + 1) 

436 

1544 

50 

25401 

0 

(+2) 

437 

C? 2 0 01 

50 

25401 

0 

NEWINSTX 

440 

2000 

27402 

15106 

4 

PRIMETARGET 

441 

2043 

50 

24265 

0 

( + D 

442 

2032 

17 

41105 

0 

( + 2 ) 

443 

2042 

27450 

25102 

4 

(+2) 

444 

2041 

50 

24235 

0 

(+-) 

445 

2016 

50 

25066 

0 

(+5) 

446 

2033 

45 

5042 

0 

SKIPREAD 

447 

2021 

50 

25000 

0 

{ + D 

450 

2017 

26150 

3101 

4 

SETSTKP2 

451 

2040 

32150 

25076 

4 

( + D 

452 

2037 

50 

24031 

0 

(+2) 

453 

2015 

16150 

65063 

4 

( + 3) 

454 

2031 

17174 

45056 

4 

( + 4 ) 

455 

2027 

17174 

67053 

4 

(+5) 

456 

2025 

15150 

65046 

14 

(+6) 

457 

2023 

16050 

125031 

4 

( + 7) 

460 

2014 

16150 

65074 

4 

SETT ARVALUE2 

461 

2036 

10050 

125073 

4 

( + D 

462 

2035 

40050 

125071 

14 

( + 2) 

463 

2034 

50 

25401 

0 

(+3) 

464 

403 

10150 

25075 

4 

READTEST 

465 

436 

22147 

21036 

14 

( + D 

466 

417 

47 

33430 

0 

( + 2) 

467 

0 414 

0 

43033 

0 

(+3) 

470 

415 

22147 

21027 

14 

<+4) 

471 

413 

47 

35435 

0 

(+5) 

472 

@ 416 

22150 

11023 

10 

(+6) 

473 

411 

10150 

3016 

0 

( + 7) 

474 

407 

24147 

21012 

0 

( + 10) 

475 

405 

50 

25401 

0 

( + 11) 

476 

0 760 

20150 

41122 

14 

HIGHTASK760 

477 

451 

12050 

125121 

0 

( + 1) 

500 

450 

70337 

77117 

14 

(+2) 

501 

447 

10002 

107115 

10 

(+3) 

502 

446 

10150 

3113 

10 

( + 4) 

503 

445 

40676 

101111 

14 

(+5) 

504 

444 

12150 

65107 

0 

(+6) 

505 

443 

42050 

125105 

14 

( + 7) 

506 

442 

10017 

121102 

10 

( + 10) 

507 

441 

10320 

103100 

10 

( + 11) 

510 

440 

10147 

21077 

10 

( + 12) 

511 

437 

50 

25401 

0 

( + 13) 

512 

0 770 

32000 

103136 

14 

SUBTEST 1 

513 

457 

22150 

65135 

4 

( + 1) 

514 

456 

10250 

125132 

4 

(+2) 

515 

455 

12250 

165130 

0 

(+3) 

516 

454 

11450 

25126 

4 

( + 4) 

517 

453 

50 

24070 

0 

(+5) 

520 

435 

32150 

124466 

10 

(+6) 

521 

433 

50 

25161 

3 

(+7) 

522 

b 432 

50 

25125 

0 

READfAIL 

523 

452 

32150 

124463 

10 

( + D 

524 

431 

50 

25161 

3 

(+2) 

525 

430 

50 

25071 

0 

( + 3 ) 

526 

434 

50 

25401 

0 

READSUCCESS 

527 

0 777 

50 

25163 

1 

( + D 

530 

571 

22017 

101161 

15 

SETUPREAD 

531 

570 

22320 

103157 

15 

( + D 

532 

567 

22150 

65155 

15 

( + 2) 

533 

566 

20050 

125152 

5 

(+3) 

534 

565 

20 

41150 

1 

(+4) 

535 

564 

20147 

21147 

5 

(+5) 

53 6 

563 

47 

35405 

0 

(+6) 

537 

0 402 

54150 

65145 

15 

( + 7) 

54 0 

562 

36050 

125143 

15 

( + 10) 

54 1 

561 

0 

43141 

1 

( + 11) 
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542 

560 

20147 

21136 

5 

( + 12) 

543 

557 

47 

35411 

0 

( + 13) 

544 

(3 404 

54150 

65134 

15 

( + 14) 

545 

556 

20050 

125133 

1 

( + 15) 

546 

555 

0 

47131 

1 

( + 16) 

547 

554 

20147 

21127 

5 

( + 17) 

550 

553 

47 

35414 

0 

(-20) 

551 

@ 406 

54150 

65125 

15 

( + 21) 

552 

552 

20050 

125123 

5 

<*22) 

553 

551 

20162 

133121 

5 

( + 23) 

554 

550 

16163 

65116 

1 

(+24) 

555 

547 

26000 

113114 

1 

( + 25) 

556 

546 

27350 

125113 

1 

(-26) 

557 

545 

26301 

101110 

1 

( + 27) 

560 

544 

26150 

11107 

1 

(+30) 

561 

543 

26050 

125105 

1 

(+31) 

562 

542 

26151 

65103 

1 

(+32) 

563 

541 

36353 

125101 

15 

( + 33) 

564 

540 

36423 

101077 

15 

(+34) 

565 

537 

16161 

53075 

1 

(+35) 

566 

536 

26000 

105072 

1 

(+36) 

567 

535 

27350 

125071 

1 

(+37) 

570 

534 

26314 

101067 

1 

( + 40) 

571 

533 

26150 

11065 

1 

( + 41) 

572 

532 

26050 

125062 

1 

(+42) 

573 

531 

26151 

65061 

1 

(+43) 

574 

530 

20353 

125056 

5 

(+44) 

575 

527 

26002 

107055 

1 

( + 45) 

576 

526 

26150 

11053 

1 

(+46) 

577 

525 

26000 

125051 

1 

( + 47) 

600 

524 

26151 

65046 

1 

( + 50) 

601 

523 

20353 

125045 

1 

(+51) 

602 

522 

24150 

25043 

11 

(+52) 

603 

521 

50 

24054 

0 

( + 53) 

604 

427 

26002 

107147 

0 

(+54) 

605 

463 

26150 

11144 

0 

(+55) 

606 

462 

26000 

107143 

0 

(+56) 

607 

461 

26151 

65140 

0 

(+57) 

610 

460 

20353 

125055 

0 

(+60) 

611 

426 

24150 

25040 

5 

CHECKFLAG 

612 

520 

50 

24051 

0 

( + D 

613 

425 

26002 

107156 

0 

( + 2) 

614 

467 

26150 

11155 

0 

(+3) 

615 

466 

26020 

101153 

0 

(+4) 

616 

465 

26151 

65151 

0 

( + 5) 

617 

464 

20353 

125050 

0 

(+6) 

620 

424 

36150 

65037 

15 

WRITECS 

621 

517 

10050 

125035 

11 

( + D 

622 

516 

20150 

65033 

1 

(+2) 

623 

515 

10450 

165030 

11 

(+3) 

624 

514 

20463 

63026 

5 

( + 4) 

625 

513 

10465 

167025 

11 

(+5) 

626 

512 

10463 

153022 

11 

(+6) 

627 

511 

10461 

171020 

11 

(+7) 

630 

510 

10760 

175016 

11 

( + 10) 

631 

507 

10160 

77015 

11 

( + 11) 

632 

506 

20450 

125012 

1 

( + 12) 

633 

505 

20150 

65010 

5 

( + 13) 

634 

504 

36150 

25006 

15 

( + 14) 

635 

503 

22147 

21004 

15 

( + 15) 

636 

502 

47 

31420 

0 

( + 16) 

637 

0 410 

20150 

25002 

1 

( + 17) 

640 

501 

22147 

21001 

15 

( + 20) 

641 

500 

47 

33424 

0 

(+21) 

642 

0 412 

26174 

71176 

10 

(+22) 

643 

477 

24050 

125174 

0 

( + 23) 

644 

476 

10017 

101172 

10 

(+24) 

645 

475 

10320 

103171 

10 

( + 25) 

646 

474 

10150 

65167 

10 

(+26) 

647 

473 

24350 

125165 

0 

(+27) 

650 

472 

22017 

137163 

14 

( + 30) 

651 

471 

22320 

103160 

14 

(+31) 

652 

470 

50 

25401 

0 

(+32) 

653 

1546 

32000 

105125 

15 

STACKCOMPARE 

654 

1552 

10217 

77123 

15 

( + 1) 

655 

1551 

23450 

25121 

1 

(+2) 
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656 

1550 

50 

24010 

0 

(+3) 

657 

1405 

32150 

124406 

10 

(+4) 

660 

1403 

50 

25114 

1 

( + 5) 

661 

b 1402 

50 

25117 

1 

stackfail • 

662 

154 7 

32150 

124403 

10 

(+1) 

663 

1401 

50 

25114 

1 

(*2) 

664 

1400 

50 

25011 

0 

(+3) 

665 

1404 

50 

25401 

0 

STACKSUCCESS 

666 

2044 

22017 

105156 

15 

WRITETEST 

667 

2167 

22320 

1C3154 

15 

( + 1) 

670 

2 166 

22150 

65153 

15 

(+2) 

671 

2165 

20050 

125151 

5 

(+3) 

672 

2164 

20 

41147 

1 

(-4) 

673 

2163 

20147 

21144 

5 

(+5) 

674 

2162 

47 

35441 

0 

(+6) 

675 

@2020 

54150 

65143 

15 

( + 7) 

676 

2161 

36050 

125140 

15 

( + 10) 

677 

2160 

0 

43136 

1 

(-11) 

700 

2157 

20147 

21135 

5 

( + 12) 

701 

2156 

47 

35444 

0 

( + 13) 

702 

@2022 

54150 

65132 

15 

( + 14) 

703 

2155 

20050 

125130 

1 

( + 15) 

704 

2154 

0 

47126 

1 

( + 16) 

705 

2153 

20147 

21124 

5 

( + 17) 

706 

2152 

47 

35450 

0 

( + 20) 

707 

@2024 

54150 

65123 

15 

(+21) 

710 

2151 

20050 

125120 

5 

(+22) 

711 

2150 

20162 

133117 

5 

( + 23) 

712 

2147 

16163 

65115 

1 

(+24) 

713 

2146 

26000 

113112 

1 

( + 25) 

714 

2145 

27350 

125110 

1 

(+26) 

715 

2144 

26301 

101107 

1 

(+27) 

716 

2143 

26150 

11104 

1 

( + 30) 

717 

2142 

26050 

125103 

1 

( + 31) 

720 

2141 

26151 

65100 

1 

( + 32) 

721 

2140 

36353 

125077 

15 

(+33) 

722 

2137 

36423 

101074 

15 

(+34) 

723 

2136 

16161 

53073 

1 

( + 35) 

724 

2135 

26000 

105071 

1 

(+36) 

725 

2134 

27350 

125066 

1 

(+37) 

726 

2133 

26314 

101064 

1 

(+40) 

727 

2132 

26150 

11063 

1 

( + 41) 

730 

2131 

26050 

125061 

1 

( + 42) 

731 

2130 

26151 

65057 

1 

(+43) 

732 

2127 

20353 

125055 

5 

( + 44) 

733 

2126 

26002 

107053 

1 

( + 45) 

734 

2125 

26150 

11050 

1 

(+46) 

735 

2124 

26000 

125046 

1 

(+47) 

736 

2123 

26151 

65045 

1 

( + 50) 

737 

2122 

20353 

125043 

1 

(+51) 

740 

2121 

24150 

25040 

11 

(+52) 

741 

2120 

50 

24025 

0 

( + 53) 

742 

2013 

26002 

107121 

0 

(+54) 

743 

2050 

26150 

11117 

0 

( + 55) 

744 

2047 

26000 

107115 

0 

(+56) 

745 

2046 

26151 

65113 

0 

(+57) 

746 

2045 

20353 

125024 

0 

(+60) 

747 

2012 

24150 

25037 

5 

CHECKFLAG2 

750 

2117 

50 

24020 

0 

( + D 

751 

2011 

26002 

107130 

0 

(+2) 

752 

2054 

26150 

11127 

0 

(+3) 

753 

2053 

26020 

101124 

0 

(+4) 

754 

2052 

26151 

65123 

0 

( + 5) 

755 

2051 

20353 

125021 

0 

(+6) 

756 

2010 

36150 

65034 

15 

WRITECS2 

757 

2116 

10050 

125033 

11 

( + D 

760 

2115 

20150 

65030 

1 

( + 2) 

761 

2114 

10450 

165027 

11 

(+3) 

762 

2113 

20463 

63025 

5 

(+4) 

763 

2112 

10465 

167023 

11 

(+5) 

764 

2111 

10463 

153021 

11 

(+6) 

765 

2110 

10461 

171016 

11 

( + 7) 

7 66 

2107 

10760 

175015 

11 

( + 10) 

767 

2106 

10160 

770 13 

11 

( + 11 ) 

770 

2105 

20450 

125011 

1 

( + 12) 

77 1 

2104 

20150 

65007 

5 

( + 13) 
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772 

2103 

36150 

25005 

15 

( + 14) 

773 

2102 

22147 

21002 

15 

( + 15) 

774 

2101 

47 

31454 

0 

( + 16) 

775 

@2026 

20150 

25001 

1 

( + 17) 

776 

2100 

22147 

21176 

14 

(+20) 

777 

2077 

47 

33460 

0 

( + 21) 

1000 

@2030 

26174 

71175 

10 

(+22) 

1001 

2076 

24050 

125172 

0 

(+23) 

1002 

2075 

10017 

103170 

10 

(+24) 

1003 

2074 

10320 

103166 

10 

(+25) 

1004 

2073 

10150 

65164 

10 

(+26) 

1005 

2072 

24350 

125163 

0 

(+27) 

1006 

2071 

27402 

15160 

4 

(+30) 

1007 

2070 

50 

24214 

0 

(+31) 

1010 

2006 

17 

41156 

0 

(+32) 

1011 

2067 

27450 

25154 

4 

(+33) 

1012 

2066 

50 

24211 

0 

(+34) 

1013 

2004 

50 

25017 

0 

(+35) 

1014 

2007 

45 

5132 

0 

BACKTOMAIN 

1015 

2055 

50 

25000 

0 

( + D 

1016 

2005 

32150 

25153 

4 

CHANGEXB 

1017 

2065 

50 

24004 

0 

(+D 

1020 

2003 

16150 

65143 

4 

(+2) 

1021 

2061 

17174 

45140 

4 

(+3) 

1022 

2060 

17174 

67137 

4 

(+4) 

1023 

2057 

15150 

65135 

14 

(+5) 

1024 

2056 

16050 

125004 

4 

(+6) 

1025 

2002 

16150 

65151 

4 

settargetval 

1026 

2064 

10050 

125147 

4 

( + 1) 

1027 

2063 

24147 

21145 

0 

(+2) 

1030 

2062 

50 

25401 

0 

(+3) 

1031 

0 761 

10002 

103012 

12 

HIGHTASK761 

1032 

605 

10150 

3010 

12 

( + D 

1033 

604 

44150 

65007 

16 

(+2) 

1034 

603 

40150 

3144 

17 

(+3) 

1035 

0 762 

20050 

101004 

16 

(+4) 

1036 

602 

2 

47002 

2 

(+5) 

1037 

601 

676 

41001 

2 

(+6) 

1040 

600 

50 

23177 

1 

(+7) 

1041 

577 

70337 

77175 

15 

( + 10) 

1042 

576 

72150 

3172 

15 

( + 11) 

1043 

575 

40676 

101170 

15 

( + 12) 

1044 

574 

40150 

7166 

15 

( + 13) 

1045 

. 573 

40147 

21164 

15 

( + 14) 

1046 

572 

50 

25401 

0 

( + 15) 

1047 

0 772 

32000 

107025 

16 

SUBTEST3 

1050 

612 

26150 

3023 

6 

(+D 

1051 

611 

40150 

65021 

16 

(+2) 

1052 

610 

11450 

25016 

6 

(+3) 

1053 

607 

50 

24045 

0 

(+4) 

1054 

423 

32150 

124442 

10 

(+5) 

1055 

421 

50 

25164 

3 

(+6) 

1056 

b 420 

50 

25015 

2 

WRITEFAIL 

1057 

606 

32150 

124403 

10 

( + 1) 

1060 

401 

50 

25164 

3 

(+2) 

1061 

400 

50 

25044 

0 

(+3) 

1062 

422 

50 

25401 

0 

WRITESUCCESS 


Page 

400: 

221 

locations 

used. 

157 

free 

Page 

1000: 

277 

locations 

used, 

101 

f ree 

Page 

1400 : 

153 

locations 

used. 

225 

free 

Page 

2000 : 

170 

locations 

used, 

210 

f ree 


RM: 

0 

1 

2 

3 

4 

5 

6 
7 

11 
12 
13 


1 REVISION 
5 RUN-TIME 

0 INNERLOOPCOUNTER 
PASSCOUNT 

2 MAXPASS 
1 NEWRAND 

0 SHORTLOOP 
SUBTEST 
OBTEST 
MISCTEST 
PCF TEST 
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14 


RRTEST 

15 


S8TEST 

16 


STKTEST 

17 


CSO 

20 


CS1 

21 


CS2 

22 


DELTASTACK 

23 


DUMMYREGISTER 

24 


EXPECTEDSTKP 

25 


FIELDMASK 

26 


INITIALCYCCTL 

27 


INSTRUCT10NADDRESS 

30 


NEWTASK 

31 


REGSHIFTFLAG 

32 


STACKSHIFTFLAG 

33 


STKPTEST 

34 


STUFFTMP 

35 


TARGETREGISTER 

36 


TARGETTASK 

40 

40 

INITIALSTKP 

41 

41 

TARGETVALUE 

42 

42 

TMP 

43 

43 

SAVESTKP 

44 

44 

RESULT 

45 

45 

WRITETESTREENTRYLOC 

52 


CA 

53 


CB 

54 


XA 

55 


RLC® XB 


Time: 13 seconds; 0 error(s), 0 warning(s). 11403 words free 
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EDTaskLog.MIDAS : Logger for EDTask program 

By: C. Chan Mar. 20. 1980 


.start L X AppendOutput EDTask.report: 

L X WriteMessage „********** START EDTask Test 
L X WriteDT: 

L X WriteMessage ***************_ . 

L X Skip .continue: 


.breakpoint L X AppendOutput EDTask.report: 

L A18 SkipNE READFAIL; 

L X Skip .ReadFaiI: 

L A18 SkipNE STACKFAIt: 

L X Skip .StackFail: 

L A18 SkipNE WRITEFAIL; 

L X Skip .WriteFail: 

L A18 SkipNE PASSED-EDTASK-TEST: 

L X Skip .passtest; 

.notmybreak L X AppendOutput EDTask.report; 

L X WriteMessage *** FAILed: Not at my breakpoint ~; 

L X WriteMessage ' Parity * 

R AO Val; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ' CIA = ; 

R A18 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CTASK = : 

R A19 Val; 

L X WriteMessage: 

L X WriteMessage ~; 

L X WriteMessage ' APCTASK = : 

R A17 Val; 

L X WriteMessage: 

L X WriteMessage ~; 

L X WriteMessage ’ ARC = : 

R A16 Val: 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' TPC = 

R A13 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X CloseOutput; 

L X Exit; 


.ReadFail L X WriteMessage *** FAILed: at my Breakpoint 

L X WriteMessage * Result of the register read does not match the TargetValue 

L X WriteMessage ' Result = : 

R B17 Val : 

L X WriteMessage: 

L X WriteMessage ~; 

L X WriteMessage ' TargetValue = : 

R B18 Val ; 

L X WriteMessage: 

L X WriteMessage ~: 

.bad L X WriteMessage ' SUBTEST = ; 

R B4 Val: 

L X WriteMessage; 

1. X WriteMessage 


L X WriteMessage ' PASSCOUNf = 
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R 62 Val: 

L X WriteMessage: 
l x WriteMessage 

L X Skip .continue: 

StackFail L X WriteMessage *** FAILed: at my Breakpoint ~: 

L X WriteMessage * ExpectedStkp does not match the value of the STKP found ~ ; 

L X WriteMessage * immediately after the read or write instruction (SaveStkp) ~: 

l X BackSkip .bad: 

.writeFail L X WriteMessage *** FAILed: at my Breakpoint ~: 

L X WriteMessage * The contents (t) of the register written (TargetRegister) - ; 

L X WriteMessage * do not match the TargetValue ~: 

L X BackSkip .bad; 

.passtest L X WriteMessage -- PASSed EDTask Test : : 

L X WriteDT; 

L X WriteMessage - ; 

L X Skip .continue: 

.continue L X WriteMessage 
L X CloseOutput; 

L X DisplayOn; 

L X Confirm; 

L X TimeOut 10000000; 

L X Continue; 

L X Skip 2; 

L X ShowError Program failed to CONTINUE.; 

L X BackSkip .notmybreak; 

L X DisplayOff; 

L X BackSkip .breakpoint: 
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L A19 Val 0 
L X Confirm 
L X Load EDT ASK; 

L BO Addr REVISION: 

L B1 Addr RUN-TIME: 

L B2 Addr PASSCOUNT: 

L B3 Addr MAXPASS: 

L B4 Addr SUBTEST: 

L B6 Addr DBTEST: 

L B7 Addr MISCTEST; 

L B8 Addr PCFTEST: 

L B9 Addr RRTEST; 

L BIO Addr SBTEST; 

L B11 Addr STKTEST; 

L B13 Addr riELDMASK: 
l B14 Addr INITIALSTKP; 

L B16 Addr EXPECTEDSTKP; 

L B17 Addr RESULT; 

L B18 Addr TARGETVALUE; 

L C16 Addr SHORTLOOP: 

L Cl7 Addr NEWRAND: 

L X DisplayOn: 

L X TimeOut 10000 
L X SS GO 
L X Skip 1 

L X ShowError Single-step at GO hung 
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*** EDtimex.me : Timer Exerciser microcode *** Revision 1 *** 

*** Purpose : This test exercises timers 0 - 15d. 

It replaces the page 16d portion of standard KERNEL. 

*** Minimum Hardware : Standard 4 CPU boards. 

*** Approximate Run Time : 6d seconds. 

*** Written by : C. ThacKer, Feb. 25, 1979 
*** Modified by : K. Mayekawa, Feb. 28, 1980 
*** Standardize title page and code format. 


•SubTest Description: 

* SubTest 0: Timer Initilization (Task 14) 

Clears the timers and sets up the refresh timer. 


* SubTest 1: Timer Wakeup routine (Task 14) 

Timer wakeups come here. 

If the timer 15d expires, memory is refreshed and a new value 
is added to the timer, then Mouse halt is checked. 

If any of the timers 0-14d expires, it is restarted and timeout 
counter for that timer is set to TimeOut. 


* SubTest 2: Check Timeout routine (Task 0) 

Loads the timers 0-l^d, sets a timeout value for these timers 
to TimeOut, then checks for timeouts. 


•Breakpoints: 

• Fail : 

• Passed-EDtimex-Test: 

• WrongSlotExpired 


The timer was not restar 
to TimeOut) when it expi 
Passed all tests, and al 
Wrong timer slot expired 
14d to 0 sequentially. 


ted (timeout register was not set 
red. 

1 passes. 

Timer slots should expire from 


•Note: The program also breaks at MouseHalt. 


•Breakpoint Logic Analyzer Sync Points: 

• There is no short looping capability for this exerciser. 

•Loading and Reading Timers: 

• Timers are loaded from the ALUA bus by functions LOADTIMER and ADDTOTIMER. 

• Also they can be read as an external R source(TIMER). 

• When loading or adding to timers, bits are divided as follows: 

• Bits 0 - 3 : new state (loaded by both LOADTIMER and ADOTOTIMER) 

• Bits 4-11 : new data to be loaded (by LOADTIMER) or new data to be added 

• to the current data (by ADDTOTIMER) 

• Bits 12 - 15 : slot number to be loaded 
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•Special Reg. Definition: 

• RM[20b] - RM[36b]: contains timeout values for each slot. 

set to TimeOut(=4Cb) when timers are started initially. 

Each time through the BigLoop, these timeouts are decremented. 

If one of the timeouts becomes zero, a breakpoint occurs. 

The maintenance panel is also incremented, so if you kill the 
breakpoint at FAIL, you will see if any errors occur by noting 
a nonzero panel. 

Whenever a timer expires normally, it is restarted and its associated 
timeout register is set to TimeOut. Thus, we should never see a zero 
value in any of the timeout registers. 

• InnerCount: incremented each time through the BigLoop, i.e. each time 

TimeOuts for all slots 0 throuch 14d are decremented by one. 

• MaxInnerCount: contains the maximum value for InnerCount. 

When InnerCount'MaxInnerCount, the program completes one 
pass, resets InnerCount, and goes back to the start of the 
program if PassCount<MaxPass. 

•Subroutine Description: 

• StartTimer: loads the timer whose slot is in TslotO and sets RM[TslotO + 20b] 

to TimeOut(=40b). 

It sets the state of the timer to 5 (Simple Timer). 

Value loaded is (112d - (slot# x 4)), loading timer I4d 
with the smallest value and timer 0 with the largest value. 

Thus the timers should expire from slot 14d through 0 sequentially. 


Slot number 

State loaded 

Value loaded 

T imeOut 

(decimal) 

• 

(decimal) 

stored at 

14 

5 

56 

RM[36b] 

13 

5 

60 

RM[35b] 

12 

5 

64 

RM[34b] 

11 

5 

68 

RM[33b] 

10 

e 

72 

RM[32b] 

9 

5 

76 

RM[31bJ 

8 

5 

80 

RM[30b] 

7 

5 

84 

RM[27b] 

6 

5 

88 

RM[26b] 

5 

5 

92 

RM[25b] 

4 

5 

■ 96 

RM[24b] 

3 

5 

100 

RM[23b] 

2 

5 

104 

RM[22j] 

1 

5 

108 

RM[21b] 

0 

5 

112 

RM[2Gb] 
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•INITIALIZATION: 


BUILTIN[IN5ERT,24]: 
lNSERT[d01ang]; 

NOMIDASINIT; 

TITLE[Timer Exerciser]; 

Set[TT ask,16]; 

Set[TimerPage,2]; 

Set[TimerlnitLoc,add[lshift[TimerPage.10],20]]; 

MC[TimerlnitlocL.and@[TimerlnitLoc,377]]; 

MC[TimerInitLocH,add[160000,and@[TimerInitLoc,177400]]]: ‘Notify to task 16. location TimerlnitLoc 
Set[TimerTable,add[lshift[TimerPage,10],100]]; 

MC[TimerValue,53400]; ‘State 5, Value 112d 

MC[TimeOut,40]; 

“““““ R-Registers: * 

* Task 0 Registers 
SETTASK[0]; 

RV[SubTest, 60]; 

RV[R1inkO, 61]; 

RV[Revision, 62, 1]; 

RV[Run-Time, 63, 6]; 

RV[PassCount, 64, 0 j; 

RV[MaxPass, 65, 5000]; 

RV[InnerCount, 66]; 

RV[MaxInnerCount, 67, 100]; 

RV[TsiotO , 70]; 

RV[Temp, 71]; 

RV[Templ. 72]; 


‘subroutine return link 
•Revision 1 

‘Run-Time is 6d seconds 


•slot number for timers 


* Task 14 Registers 
$ETTASK[TTask]; 


RV[T s101,40]; 

RV[ExpectedSlot,41]; 
RV[Time rT emp, 42 ] ; 
RV[RTimer,43]; 
RV[REFR,44] ; 


•slot number which should expire next 
•temporary register 
‘constant for memory refresh timer 
•refresh address 
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*** MAIN r 
•SubTest 0 

InitTimers 
ClrTimers: 


InitDone: 


>utine: 


(Timer Initialization) 


SETTASK[TTask]: 

0NPAGE[TimerPage]; 

TimerTemp «- ( 100000C), AT[T imerlnitLoc]; 


LOADTIMER[TimerTemp]; 

•clear 

out 

all 

Timers 

NOP; 

*Timers 

can 

be 

loaded only once 

NOP; 

•every 

7 mi 

croi 

nstructions 

NOP; 




NOP; 





TimerTemp *■ (TimerTemp) + 1, ResetMemErrs; 

•clear 

any 

pend 

ing memory errors 

LU «• (TimerTemp) AND (17C); 

•there 

are 

16 d 

timers 


REFR «* (0C), OBLGOTO[InitDone, CirTimers, ALU=0]; 

LU «- TIMER: ‘clear all wakeups 

RTimer *■ (50000C); *set up the Refresh timer 

RTimer ♦* (RTimer) OR ( 257C); ‘simple timer, value lOd, slot 15d 

LOADTIMER[RTimer]; 

ExpectedSlot «- 16c: ‘■‘nsist that the timers expire in order 

CALL[TimerRet]; ‘returns to task 0 
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•SubTest 1 (Timer Wakeup routine) 

TimerWakeup: DISPATCH[TIMER,14,4]; 
DISP[Timers]; 


♦Timer wakeups come here 
•initialize base register 


spatch 

table 

for 

task 14 (Timers are 

read in complemented form 

) 

REFRESHfRE FR], 

GOTO[RefreshNext], 

AT[TimerTable.00] 

•slot 

15d(used as a refresh timer 

Tslot 

«-T 

4- 

16c, 

G0T0[RestartTimer], 

AT[TimerTable,01] 

•slot 

14d 

Tslot 

-T 

+ 

15c. 

GOTO[RestartTimer], 

AT[TimerTable, 02] 

•slot 

13d 

Tslot 

«-T 


14c, 

GOTO[RestartTimer], 

AT[TimerTable,C3] 

•slot 

12d 

Tslot 

«-T 

4- 

13c, 

GOTO[RestartTimer]. 

AT[TimerTable.04] 

•slot 

lid 

Tslot 

«-T 

4* 

12c, 

GOTO[RestartTimer], 

AT[TimerTable, 05] 

•slot 

lOd 

Tslot 

«-T 

4- 

lie, 

G0T0[RestartTimer], 

AT[TimerTable,06] 

•slot 

9d 

Tslot 

«-T 

«- 

10c, 

GOTO[RestartTimer]. 

AT[TimerTable,07] 

•slot 

8d 

Tslot 

«-T 


7c, 

GOTO[RestartTimer], 

AT[TimerTable ,10] 

•slot 

7d 

Tslot 

«-T 

4- 

6c, 

GOTO[RestartTimer], 

AT[TimerTable, 11] 

•slot 

6d 

Tslot 

«-T 

4- 

5c, 

GOTO[RestartTimer], 

AT[TimerTable, 12] 

•slot 

5d 

Tslot 

-T 


4C , 

GOTO[RestartTimer], 

AT[TimerTable, 13] 

•slot 

4d 

Tslot 

«-T 


3c, 

GOTO[RestartTimer], 

AT[TimerTable, 14] 

•slot 

3d 

Tslot 

«-T 


2c, 

GOTO[RestartTimer], 

AT[TimerTable,15] 

•slot 

2d 

Tslot 

«-T 

4- 

1c, 

GOTO[Re$tartTimer], 

AT[TimerTable, 16] 

•slot 

Id 

Tslot 

«-T 


0c, 

G0T0[RestartTimer], 

AT[TimerTable, 17] 

•slot 

Od 


•Refresh has been 

started. 

RefreshNext: 

AD0T0TIMER[RTimer]; 

•Check for Mouse 

halt 

CheckMouse: 

T «- 10000C; 


LU - (PRINTER) AND (T): 
DBLGOTO[MouseHalt,TimerRet,ALU#0] 

TimerRet: 

RETURN; 

•Mouse halt, Midas breakpoint 

MouseHa1t: 

G0T0[.], SETFAULT; 

RestartTimer: 

WrongSlotExpired: 

LU *- (ExpectedSlot) - (T); 

SKIP[ALU= 0] ; 

BREAKPOINT; 

ExpectedSlot - (ExpectedSlot)-1; 


SKIP[ALU>=0]; 

ExpectedSlot «- 16c; 

T (Tslot) OR (T imerVal ue ); 

TimerTemp T ; 

ADDTOTIMER[TimerTemp]; 

•Set RM[20b + Tslot] to TimeOut - if this register 
•the main program will restart the timer and cause 
Tslot - (Tslot) + (20c); 

T«-STKP; 

Tslot - T. STKP «• Tslot; 

Tslot «■ (Tslot) XOR (377C) ; 

STACK «- TimeOut; 

STKP - Tslot. RETURN; 


•load the refresh timer 

•check for mouse halt 

•for task switching 

•timers cannotbe restarted. 

•insist that the slots expire in order 14..0 

•reset expectedslot if negative 

ever becomes 2 ero. 
an error. 

•Array of count words is in RM[20b]-RM[36b] 

•restore stackpcinter 
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•SubTest 2 (Check Timeout routine) 

SETTASK[0j: 

0NPAGE[13; 

start: 

go: SubTest «■ 2C; 

InnerCount <- 0C; ‘reset InnerCount 

CLEARMPANEL, CALL[SwitChTol4]; ‘Notify timer initialization stuff 

•come back here after timer initialization 

SetTimers: SubTest «• 2C; 

TslotO - T - (16C), GOTO[StartTLoop]; 

•switch to Task 14, InitTimers 
SwitchTol4: SubTest «- 0C: 

TslotO *• TimerlnitlocL ; 

TslotO «- (TslotO) OR (TimerlniUocH); 

APC&APCTask - TSiotO; 

RETURN; 

StartTLoop: CALL[StartTimer]; *start timer, set count to TimeOut 

TslotO «- T ► (TslotO )*1; 

G0T0[Bigloop, ALU<0]: 

GOTO[StartTLoop]; 

Bigloop: TslotO «- T *- (16C); 

MainLoop : Temp *- T ; 

NOP; ‘make the loop longer 

Temp «- (Temp) + (20c): 

SubTest «- 1C, TASK; 

CheckTimeout: SubTest «■ 2C; 

STKP - Temp; 

STACK *- (STACK) - (1C), GOTO[No Fa i 1, R> = 0 ] ; 'slot TslotO got restarted in time 

Fail: BREAKPOINT,INCMPANEL; 

GOTO[go]; 

NoFail: TslotO - T * (TslotO) - (1C); 

GOTO[MainLoop, ALU>*0]; 

InnerCount *■ T «- (InnerCount) + (1C); ‘increment InnerCount 

LU *- (MaxInnerCount) - (T); 

G0T0[0nePassFin i shed , ALU=0]; ‘finished one pass ? 

G0T0[BigLoop]; 

OnePassFinished: PassCount *- T «- (PassCount) + (1C); ’increment PassCount 

LU (MaxPass) - (T); 

GGTO[Passed-EDtimex-Test, ALU=0]; ‘finished all passes ? 

G0T0[go]; 

Passed-EDtimex-Test: PassCount *- 0C, GOTO[go], BREAKPOINT; 
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*«*••«»*** SUBROUTINE: StartTimer ********** 

* 

* to load the timer whose slot is in TslotO and 

* to set RM[TslotO + 20b] to TimeOut 

StartTimer: USECTASK; 

T - APC&APCTASK; 

R1 inkO *• T : 

•TslotO has the slot number 

•subtract (slot number x 4) from TimerValue 

•set count to TimeOut 
•restore the slot number 


END; 


T - TslotO; 

T emp «• T ; 

Temp «■ (Temp) OR (TimerValue); 
T «- lsh[TslotO ,6] ; 

Temp (Temp) - (T); 

LoadTimer[Temp]; 

T *■ TslotO; 

Temp *T; 

Temp *• (Temp) + (20c); 

STKP «- Temp; 

STACK *• T imeOut; 

Temp <- T; 

APC&APCTASK - RlinkO; 

RETURN; 




EDtimex 


BEGIN 


TimeOut = 40b 
MaxInnerCount = 100b 
MaxPass = 5 


SUBTEST 2 

TASK 0 


Timer Configuration: 

01 23456789_10 11 12 13 14 15 


start: v _ 

90: InnerCount = 0 


Slot Number 


NOTIFY 


*— Task 14, go to InitTimers 
page 01 


SUBTEST0 I 
[TASK 14 


InitTimers: w 

-- TimerTemp = 100000b 

initialize a register to i.e. state = 8d • Wait tor reload 
clear the timers value = 0 

- — - 1 - slot = 0 


I nitDone: ^ _ 

clear all task 14 wakeups 


set a register to load 
a Refresh Timer (slot 15d) 


lu = TIMER 


Rtimer = 50257b 
i.e. state = 5 ■ Simple Timer 
value = lOd 
slot = I5d 


load a Refresh Timer LOADTIMER [RTimer] 


ClrTim ers: j/ _ 

— . —■ > clear the timer LOADTIMER [TimerTemp] 


—*- 1 NOP: NOP: NOP: NOP; 

delay (Timer can be loaded only once 
. 1 . . — 'I every 7 microinstructions) 


increment slot number 

TimerTemp = (TimerTemp) ♦ (1C) 


clear any pending 
memory errors 


ResetMemErrs 


Initialize ref resh address to 0 REFR = 0 


all timers cleared ? 


set next slot number to I4d ExpectedSlot = I4d 

Timers should expire in order 


Time rRet: _ 

I RETURN 


Task 0, go to SetTimers page 03 
if timer initialization has just 
finished 

Task 0, go to CheckTimeout page 03 
if in the middle of timeout check 

Task 14, go to TimerWakeup page 02 
if any of the timers woke up 


TimerTemo[12:15] = 15d? 
i.e. slot number s 15d ? 


I XEROX 

D(0) 

PROGRAM NAME 

DOCUMENTATION FILE 

DESIGNER 

REV 

DATE 

PAGE 

! ED 

Diagnostic 

EDtimex.me 

EDtimexOI .sil 

K. Mayekawa 

1 

2/26/80 

01 
















SUBTEST 1 


TASK 14 

TimerWakeup 

0- 14d . 


slot number = ? >- - 

\ _ / 

Dispatch [Timer, 14, 4] = ? 


set a register tor slot number 

Tslot = T = slot number 


RestartTimer: 


res / right slot \ no 
\ expired? / 


ExpectedSlot = T? 


WrongSlotExpired: _ 

PbreakpoinTI 


decrement slot number 

ExpectedSlot s (ExpectedSlot) ■ (1) 


Tim ers: ^ _ 

refresh memory REFRESH [REFR] 

Refre shNext: v _ 

add lOd to a Refresh Timer ADDTOTIMER [RTIMER] 


CheckMouse \|/ 

/ 

( mouse halt? 


TimerRet 
page 01 


PRINTER[6] * 1 ? 
yes 


MouseHalt: 


Mouse halt 


Midas breakpoint, SETFAULT 
Timers cannot be restarted 


all slots expired ? 


ExpectedSlot < 0 ? 


reinitialize next slot number ExpectedSlot = 14d 


. .. IT”' TimerTemp = T s (Tslot)OR(TimerValue) 

add to the expired timer ADDT0T lMER [TimerTemp] 


-- Tslot = (STKP) XOR (377B) 

Set count to TimeOut (STKP is read in complemented form) 

. I . STKP = (slot number) ♦ (20b) 

STACK = TimeOut 


restore St ackpointer | STKP = Tslot 

I RETURN I 


Task 0, go to CheckTimeout page 03 
if there is no timer wakeup 

Task 14, go to TimerWakeup page 02 
if any of the timers woke up 
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SUBTEST 2 


TASKO 

CheckTimeout: 


decrement TimeOut |j A P CK .*(STACK)-(1) 


Set Timers: _ 

f initialize slot number to 14d TsIotO = T * I4d 


was this slot \ no 
restarted in time ? / ~~ 


StairtTLoop: 


load a timer whose slot 
number is in T and set 
count to TimeOut 


CALL StartTimer 
page 04 


decrement slot number TsIotO = T = (TsIotO) • (1) 


all timers started ? 


TsIotO < 0 ? 


STACK >= 0? 


Fail: BREAKPOINT 


NoFail: decrement 
slot number 


INC M 


go \ 
page 01 j 

start all over again 


TsIotO = Ts(TslotO)-1 


all slots finished ? 


Bi gLoop: 4/ _ 

-$4" set slot number to 14d TsIotO = T = 14d 


'lainLoop: 


increment slot Temp = T 

number by 20b Temp = (Temp) + (20b) 


—*- 1 

TASK j 


Task 14, go to TimerWakeup 
page 02, if any of the timers 
woke up 

Task 0, go to CheckTimeout 
page 03, if there is no timer 
wakeup 


N 

yes 

/ 

increment InnerCount 

\ 

InnerCount = (InnerCount) ♦ (1) 

/ 


no / done with \ 

\ one pass . / nner c oun t - MaxinnerCount ? 


OnePassFinished: 


increment PassCount 

I PassCount = (PassCount) (1) 


done with \ no 
all passes ? ) 


go 

page 01 


PassCount = MaxPass? 


yes 

_t_ 

PassCount a 0 


Passed-EDtimex-Test^^ 

Pb REAKPOINT 


CONTINUE >, g° 

page 01 


I XEROX D(0) PROGRAM NAME 
1 ED Diagnostic EDtimex.mc 


DOCUMENTATION FILE 

EDtimex03.sil 


DESIGNER 


REV DATE 


K.Mayekawa I 1 I 2/26/80 






SUBROUTINE 
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PARITY 

0 

CYCLECONTROL 

63 

PCXREG 

7 

PCFREG 

7 

DBREG 

77 

SBREG 

77 

MNBR 

3423 

*SSTKP 

377 

STKP 

0 

*ALURE8UL.T 

3 

*SALUF 

377 

T 20 

7000 

AATOVA 

0 

TPC 20 

7777 

CALLER ILC0+7630 

*PAGE 

1 

*APC 

7011 

*APCTASK 

16 

*CI A 

GO + 1 

CTASK 

0 


Loaded: EDTIMEX 


REVISION 1 

RUN-TIME 12 

PAS3C0UNT 0 

MAXPASS 5 

*SUBTEST 2 

INNERCOUNT 0 

MAXINNERCOUNT 100 

TSLOT0 0 

TSLOT 0 

EXPECTEDSLOT 0 

RTIMER 0 


COMM-ER0 

COMM-ER1 

C0MM-ER2 

BOOT-ERR 

*BOOTREASON 

MEMSYNDROME 


Time: 08.47 


Step at 0:60, BP at 0:GO+1 


40 

131000 


Exit Boot Run-Prog Read-Cmds Break UnBreak ClrAddedBPs ClrAllBPs ShowBPs Go 
SS Load LdSyms Compare Test-All Test Dump Show-Cmds Write-Cmds 

Virtual 


O <9 0 O 
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MicroD 8.6 (OS 16) of April 27. 1979 
at 29-Fel)-80 9:28:41 

microd.run Edtimex 


Edtimex. 

DIB 

152b in 

structions written 29-Feb-80 9:27:57 

Total of 

15 

2b instruc 

tions 

Checking 

fo 

r errors.. 


Linking. 




Building 

al 

location 1 

i sts . . . 

Assigning 1 

ocations.. 


152b 

ins 

tructions 

in rings involving ONPAGE or AT 

Reloading b 

inaries... 

Checking 

as 

signment. . 


Writing 

.MB 

file. . . 


Writing 

1 is 

ting. . . 



IM: 


Imag 

Real 

WO 

W1 

W2 

Symbol 

Edtimex.DIB: 





0 

@1020 

10030 

101013 

10 

INITTIMERS 

1 

1005 

10142 

25064 

10 

CLRTIMERS 

2 

1032 

50 

25063 

0 

( + 1) 

3 

1031 

50 

25060 

0 

( + 2) 

4 

1030 

50 

25056 

0 

(+3) 

5 

1027 

50 

25055 

0 

(+4) 

6 

1026 

11050 

133052 

10 

(+5) 

7 

1025 

10200 

37051 

10 

(+6) 

10 

1024 

12020 

100010 

0 

(+7) 

11 

1004 

64150 

25047 

14 

INITDONE 

12 

1023. 

10025 

101045 

14 

( + 1) 

13 

1022 

10312 

137042 

14 

(+2) 

14 

1021 

10142 

25036 

14 

(+3) 

15 

1017 

10000 

135021 

4 

( + 4) 

16 

1010 

50 

25215 

0 

(+5) 

17 

1011 

64174 

1035 

14 

TIMERWAKEUP 

20 

1016 

50 

25601 

1 

( + 1) 

21 

@1100 

152350 

1033 

0 

TIMERS 

22 

@1101 

10000 

175113 

0 

( + 1) 

23 

@1102 

10000 

173113 

0 

(+2) 

24 

@1103 

10000 

171112 

0 

(+3) 

25 

@1104 

10000 

167113 

0 

(+4) 

26 

@1105 

10000 

165112 

0 

(+5) 

27 

@1106 

10000 

163112 

0 

(+6) 

30 

@1107 

10000 

161113 

0 

(+7) 

31 

@1110 

10000 

157113 

0 

( + 10) 

32 

@1111 

10000 

155112 

0 

(+11) 

33 

@1112 

10000 

153112 

0 

( + 12) 

34 

@1113 

10000 

151113 

0 

( + 13) 

35 

@1114 

10000 

147112 

0 

( + 14) 

36 

@1115 

10000 

145113 

0 

( + 15) 

37 

@1116 

10000 

143113 

0 

( + 16) 

40 

@1117 

10020 

141113 

0 

( + 17) 

41 

1015 

10143 

25031 

14 

REFRESHNEXT 

42 

1014 

21 

41026 

0 

CHECKMOUSE 

43 

1013 

62250 

1024 

14 

( + 1) 

44 

1012 

50 

24015 

0 

(+2) 

45 

1006 

50 

25401 

0 

TIMERRET 

46 

1007 

47 

17016 

0 

MOUSEHALT 

47 

1045 

11450 

25110 

4 

RESTARTTIMER 

50 

1044 

50 

24004 

0 

( + D 

51 

b 1003 

50 

25005 

0 

WRONGSLOTEXPIRED 

52 

1002 

11350 

125107 

4 

( + D 

53 

1043 

50 

24200 

0 

(+2) 

54 

1001 

10000 

135000 

4 

(+3) 

55 

1000 

10325 

57104 

0 

(+4) 

56 

1042 

10050 

125103 

10 

(+5) 

57 

1041 

10143 

25101 

10 

(+6) 

60 

1040 

11101 

101076 

0 

(+7) 

61 

1037 

70166 

47075 

14 

( + 10) 
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62 


1036 

10050 

103073 

0 

( + 11) 

63 


1035 

10417 

137070 

0 

( + 12) 

64 


1034 

40002 

101067 

14 

( + 13) 

65 


1033 

10150 

3400 

0 

( + 14) 

66 


420 

0 

105134 

0 

GO START 

67 


456 

2020 

101035 

10 

( + D 

70 


416 

47 

7252 

0 

(+2) 

71 


417 

0 

105132 

0 

SETTIMERS 

72 


455 

4000 

175014 

0 

( + 1) 

73 


425 

20 

101050 

0 

SWITCHT014 

74 


424 

4001 

101046 

0 

( + 1) 

75 


423 

4336 

105045 

0 

(+2) 

76 


422 

4147 

21043 

0 

(+3) 

77 


421 

50 

25401 

0 

(+4) 

100 


406 

50 

25314 

0 

STARTTLOOP 

101 


407 

5350 

165131 

0 

( + D 

102 


454 

50 

24230 

0 

( + 2) 

103 


414 

50 

25014 

0 

(+3) 

104 


415 

4000 

175000 

0 

BIGLOOP 

105 


400 

4050 

125122 

4 

MAINLOOP 

106 


451 

50 

25120 

0 

( + 1) 

1C7 


450 

5101 

101024 

4 

(+2) 

110 


412 

0 

103317 

0 

(+3) 

111 


447 

0 

105401 

0 

CHECKTIMEOUT 

112 


413 

4150 

3126 

4 

( + 1) 

113 


453 

41400 

102410 

14 

( + 2) 

114 

b 

405 

47 

5136 

0 

FAIL 

115 


457 

50 

25041 

0 

( + 1) 

116 


404 

5400 

143125 

0 

NOFAIL 

117 


452 

50 

24200 

0 

( + 1) 

120 


401 

3100 

143147 

10 

(+2) 

121 


463 

3450 

25144 

14 

(+3) 

122 


462 

50 

24020 

0 

( + 4) 

123 


411 

50 

25033 

0 

(+5) 

124 


410 

3100 

143143 

0 

ONEPASSFINISHED 

125 


461 

3450 

25140 

4 

( + D 

126 


460 

50 

24004 

0 

(+2) 

127 


403 

50 

25041 

0 

(+3) 

130 

b 

402 

2020 

101040 

0 

PASSED-EDTIMEX-TEST 

131 


446 

47 

27112 

0 

STARTTIMER 

132 


445 

50150 

65110 

14 

( + 1) 

133 


444 

50 

125107 

4 

(+2) 

134 


443 

4150 

65105 

0 

(+3) 

135 


442 

4050 

125103 

4 

( + 4) 

136 


441 

4325 

117100 

4 

(+5) 

137 


440 

4174 

55076 

0 

(+6) 

140 


437 

5450 

125075 

4 

( + 7) 

141 


436 

4142 

25073 

4 

( + 10) 

142 


435 

4150 

65070 

0 

( + 11) 

143 


434 

4050 

125067 

4 

( + 12) 

144 


433 

5101 

101065 

4 

( + 13) 

145 


432 

4150 

3063 

4 

( + 14) 

146 


431 

40002 

101061 

14 

( + 15) 

147 


430 

4050 

125057 

4 

( + 16) 

150 


427 

147 

21054 

4 

( + 17) 

151 


426 

50 

25401 

0 

(+20) 


Page 400: 

64 

locations used 

Page 1000: 

66 

locations used 

RM: 

60 


SUBTEST 

61 


RLINKO 

62 

1 

REVISION 

63 

12 

RUN-TIME 

64 

0 

PASSCOUNT 

65 

5 

MAXPASS 

66 


INNERCOUNT 

67 

100 

MAXINNERCOUNT 

70 


TSLOTO 

71 


TEMP 

72 


TEMPI 

340 


TSLOT 

341 


EXPECTEDSLOT 

342 


TIMERTEMP 
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343 RTIMER 

344 REFR RLC® 

Time: 7 seconds: 0 error(s), 0 warning(s). 11947 words free 
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EDtimexLog.MIDAS : Logger for EDtimex program 

By: K. Mayekawa Feb. 25. 1980 


.start L X AppendOutput EDtimex.report: 

L X WriteMessage .**«■******• START EDtimex Test : 
L X WriteDT; 

L X WriteMessage **************** ; 

L X Skip .continue: 


.breakpoint L X AppendOutput EDtimex.report: 

L A18 SkipNE WRONGSLOTEXPIRED; 

L X Skip .wrongslotexpired; 

L A18 SkipNE FAIL; 

L X Skip .fail; 

L A18 SkipNE PASSED-EDTIMEX-TEST: 

L X Skip .passtest; 

.notmybreak L X AppendOutput EDtimex.report: 

L X WriteMessage *** FAILed: Not at my breakpoint 

L X WriteMessage ' Parity a : 

R AO Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CIA = ; 

R A18 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ' CTASK * ; 

R A19 Val; 

L X WriteMessage; 

L X WriteMessage ~; 

L X WriteMessage ’ APCTASK = 

R A17 Val; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ' APC = : 

R A16 Val; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ' TPC = ; 

R A13 Val ; 

L X WriteMessage; 

L X WriteMessage ~; 

L X CloseOutput; 

L X Exit; 


.wrongslotexpired L X WriteMessage *** FAILed: at my Breakpoint 

L X WriteMessage * Wrong Slot Expired ~; 

.bad L X WriteMessage ’ SUBTEST = ; 

R B4 Val; 

L X WriteMessage: 

L X WriteMessage ~: 

L X WriteMessage ’ PASSCOUNT = ; 

R B2 Val; 

L X WriteMessage; 

L X WriteMessage 

L X WriteMessage ' INNERCOUNT * 

R B6 Val: 

L X WriteMessage; 

L X WriteMessage 


L X Skip .continue; 
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.fail 


.passtest 


.continue 


L X WriteMessage *** FAILed: at my Breakpoint 
L X WriteMessage * Timer Not Restarted 

L X BackSkip .bad; 

L X WriteMessage -- PASSed EDtimex Test : 

L X WrlteDT; 

L X WriteMessage .... 

L X Skip .continue; 

L X WriteMessage -: 

L X CloseOutput; 

L X DisplayOn; 

L X Confirm: 

L X TimeOut 10000000; 

L X Continue; 

L X Skip 2; 

L X ShowError Program failed to CONTINUE.; 

L X BackSkip .notmybreak; 

L X DisplayOff; 

L X BackSkip .breakpoint: 
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L A19 Val 0 
L X Confirm 
L X Load EDTIMEX: 

L BO Addr REVISION 
L B1 Addr RUN-TIME 
L B2 Addr PASSCOUNT 
L B3 Addr MAXPASS 
L B4 Addr SUBTEST 
L B6 Addr INNERCOUNT 
L B7 Addr MAXINNERCOUNT 
L B9 Addr TSLOTO 
L BIO Addr TSLOT 
L B11 Addr EXPECTEDSLOT 
L B12 Addr RTIMER 
L X DisplayOn; 

L X TimeOut 10000 
L X SS GO 
L X Skip 1 

l X ShowError Single-step at GO hung 



